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est un service sans égal pour t< 
vos problèmes d'ordre TECHNI- 
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MERCREDI de 9h00 à 12h00 e 
de 14h00 à 17h00. 
VENDREDI de 9h00 à 1 ZhOO seu 
le ment. 

Tout appel en dehors de ces cré 
neaux sera refoulé ; ne dépense 
pas inutilement votre argent ! 
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CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produis et vous recevrez gra- 
tuitement 1 n° hors série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatlbles MAGAZINE : ta référence en matière d'initiation et de perfectionnement sur les 
"compatibles PC". 
Attention, tous nos abonnés reçoivent avant parution des souscriptions sur les nouveaux livres ! 
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ANTI-ERREURS 




Il est difficile de taper un programme 
d'une revue sans commettre d'er- 
reurs. Quand les erreurs sont signa- 
lées (Syntax error in..., Une does not 
exist in...), la correction est facile 
puisque la ligne est indiquée, mais 
lorsqu'au "point de vue" du CPC, le 
programme est correct, il peut en 
être tout autrement pour le lecteui 
si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impos 
sible de retrouver l'erreur commise, 
à moins de comparer les lignes de 
votre programme avec celles du 
journal, mais c'est très long et on ris- 
que de passer sur une erreur sans la 
voir. 

C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne 
retrouvez pas vos erreurs. 
La frappe d'un programme de votre 
journal favori terminée, vous faites 
"RUN" et là, vous corrigez toutes 
les erreurs signalées par le CPC en 
vous référant au journal pour com- 
parer. Si, malgré cela, il ne tourne 
toujours pas, suivez cette 
procédure : 

— Sauvez votre programme en 
ASCII grâce à l'instruction : 
SAVE "nom.prog",A 
Puis, si vous êtes sur K7, réembobi- 



nez la bande jusqu'au début du 
fichier. 

— Chargez Anti-Erreurs. 

— Entrez le nom de votre pro- 
gramme et insérez le support où il se 
trouve {K7 ou disquette}. 

Après quelques secondes, les numé- 
ros de lignes vont défiler. Vous 
remarquerez qu'à chaque ligne cor- 
respond un code de 2 lettres sous 
cette forme : 

>XX<, c'est ce code qui va vous 
permettre de savoir d'où proviennent 
les erreurs. Pour cela, il faut que 
vous compariez les codes du journal 
à ceux de l'écran. Si un code diffère, 
notez sur papier le numéro de ligne 
qui correspond à ce code. Continuez 
ainsi jusqu'à la fin du listage. 
Le défilement terminé, rechargez 
votre programme et corrigez les 
lignes que vous avez notées en com- 
parant avec le journal. Faites "RUN" 
et, oh ! miracle ! ça marche I 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère {sauf les espaces), car 
Anti-Erreurs les prend en compte et, 
bien sûr, ne tapez pas les codes de 
contrôle. 

N.B. : la ligne 480 contient le 
numéro de canal pour l'écran ou 
8 pour l'imprimante. 



10 '*K*#*K*#*M*#*#*#*lt*#*## 


>YB< 


20 '1 # 


>AC< 


3Ô '» ANTI - ERREURS ♦ 


:RD : - 


4t> '# # 


■ CE:.. 


m '*#**##*ft##*#*#*it*#*iH*(t* 


>CF< 


68 ' 


>m 


70 '(c)CPC & GREGORï NQE 1987 ' 


>LH< 


86 ' 


>FJ< 


90 ON ERRGFi GOTO 900 


M< 


m MODE 2 


m< 


11Ô DIH qîl23l 


>KC< 


120 FOR 1=0 TD 22:READ g*:gî(I)=q$: 


HÊU< 


NEXT 




130 ' ATTENTION LA LIGNE DE DATA Cl 


>PE< 


-DESSOUS NE CONTIENT PAS TOUTES LES 




LETTRES DE L'ALPHABET !!! 




m DATA A t B,C.D,E,F,5,H,J,K,L,M,N, 


>FF< 


P,Q,R,T,U,V,W,X,Y,I 




150 ' ANTI-BUG FICHIER 


>XG< 


160 IF PEEK(HIttEM+l)=255 THEN 210 


>BH< 


170 QPENOUT "CRU" 


>ZJ< 


1B0 MEMORY HIMEH-2 


>JK< 


190 CLOSEOUT 


.IL' 


200 POKE HIHEM+1.255 


>FEa 


210 DEFINT A-I 


HDÏ 


220 ' 


>DE'.: 


230 BORDER 6:INK 0,1:M l,iû:PEN 1 


BF; 


: PAPER 




240 MOVE 0,16:DRAU 650, 16 


m< 


250 PRINT TftB(27> "A N T I - E R R 


>FK< 


EU RS" 




260 rfflVE 0,3B5:DRAW 656,365 


>JJ< 


270 LDCATE 18,25:PRINT"CPC REVUE DU >KK< 


STANDARD AMSTRAD ET SCHNEIDER" 




280 HINDOU 1,60,3,23 


>FL< 


290 aS^Realise par Gregory NOE" 


>m< 


300 f*="" 


m< 


310 FOR i=l TQ LEN<m$) 


;re, 


320 fï=f*+«ID*(ra*,i,l) 


,'UF< 

















33S LÛCATE 70-i,5:PRINT H 


>xe< 


S3« ' CALCUL DE LA CLE DE CONTROLE 


>FJ< 


776 li*=""ïPRINT#ca, LEFT$(b$,35);T >lfl< 






346 FOR t=l TO 100 


>LH< 






AB137) USINE ">\\<";e* 






358 PEXT t,i 


>FJ< 


546 ' 


>JK< 


786 IFLEN(û$)<35 THEN 846 >XR< 






366 ' 


>JK< 


556 a=6 


>GL< 


796 fjFl >XT< 






376 '**#*******#*****#******* 


>fL< 


566 FOR 1=1 TO LENià$i 


>LM< 


866 b*=MIDî!t]*,3É,LEN(b$)i >UJ< 






396 ' 


>LM< 


576 lt=MID$(a*.i,l) 


>KN< 


816 PRINT#ca,LEFTÎ(b$,35) >BK< 






390 LOCATE 2,1:PRINT"ENTREZ LE NOM 


m< 


586 IF l*=CHRî(32> THEN 660 


>JP< 


826 IF -fg=l AND ca<>8 THEN tg=0:GOS >HL< 






DU FICHIER i "; 




596 a=a+A5C<lî) 


>VQ< 


UB 916:G0T0 836 






4Ô0 INPtlT "",NF$ 


>TE< 


666 NEXT i 


>PG< 


83â GOTO 786 >GM< 






416 LOCATE 2,3:PRINT"TANT QUE LE LI 


>UF< 


616 c=INT ta/23) 


>DH< 


S46 IF E0F=~1 THEN CLOSEIN ELSE GOT >PN< 






STAGE N'EST PAS TERMINE" 




626 p=a-(c*23) ■■ 


>EJ< 


496 






426 LOCATE 2,5:F'RINT"NE PAS ARRETE 


>m< 


636 C*=GÎ(P) 


>LX< 


856 CALL S;BB03:PRINT TABI56) "UNE T >LP< 






R LE MAGNETOPHONE OU NE" 




646 a=6 


>BL< 


OUCHE...":CALL &BB65 






430 LOCATE 2,7:PRINT"PAS SORTIR LA 


:fh:; 


656 FOR 1=1 TO è 


>EM< 


866 CLSiPRINFMAINTENANT RECHARGEZ >FQ< 






DISQUETTE" 




666 lt=MID$(a*,i,l) 


>m< 


";NFÎj" ET CORRIGEZ LES LIGNES QUE 






44S LOCATE 2,1Ô:PRINT"PRESSEZ UNE T 


>HJ< 


676 IF 1*<"0" OR 1$>"9" THEN 766 


>HP< 


VOUS AVEZ NOTEES.." 






DUCHE POUR LA LECTURE" 




686 lit=Ii*+l$:a=a+VAL(H) 


>HS< 


876 END >GR< 






45e CALL &BB65 


>VK< 


696 NEXT 


>VR< 


886 'TRAITEMENTS DES ERREURS >CT< 






466 OPENIN "l"+nf* 


>*.< 


766 c=lNT(a/23) 


>9K 


896 ' >TU< 






476 CLS:PRINT" TRAITEMENT EN COURS.. 


>BI< 


716 p=a-(c*23) 
72e CK1+GKP) 


>EJ< 


966 IF ERR=25 THEN CLB:PRIMT CHR*(7 >AK< 
>;CHR$f24);"FICHIER NON ASCII";CHR» 






486 ca=e ' CANAL DE SORTIE 


>BK 


736 


>KL< 


(24):EN0 ELSE CONT 






496 LINE lNFUTtt9,b$:aï=UPFER$(b$) 


>UP< 


746 IF ea<>fi THEN 756 ELSE 776 


>EM< 


916 coni=CD(B+l:IF cdeb>19 THEN CALL & >GL< 






566 IF etOfl THEN GOSUB 916 


>UR 


756 PRINT li*;TABU0> USING ">\\<" 


>AN< 


BBÔ3:PRINT TAB(56) "UNE TOUCHE...": 






516 IF INKEV(66!=ô THEN STOP 


UBi 


cl 




CALL S;BB65:C0M=1 






520 ' 


>GH< 


766 li$="":GQTQ B46 


>KP< 


926 RETURN >QM< 














16 ' ym 





CENDRILLON 



26 'CENDRILLÛN ioader 



Laurent CHABERT 




te ' >DG< 

76 MODE l! BORDER 0:1*: 6,0:PAP£R 6: >MH< 
INK 1, 14.25: INK 2,25,16:INK 3,16,14 



Laurent CHABERT 



, une citrouille et une marraine ayant quelques pouvoirs magiques. Voilà les 
ingrédients nécessaires au déroulement d'un conte fort célèbre. Le jeu qui vous est 
proposé a été actualisé mais le but est le même pour se rendre au bal. Cendrillon 
doit effectuer des tâches ménagères. A vous de la guider correctement pour qu'elle 
puisse aller s'amuser. 

Chargement : Tapez et sauvez le I e ' listing sous le nom "CENDRIO", faites de même 
avec le second listing (nom : "CENDRI01 "). 



B0 MOVE 126,225 
96 FOR i=l TO 146:READ x,y 
100 p=p+l:IF p=4 THEN p=l 
lie DRAW x+2e,y-5e,p:NEXÎ 
126 PLOT 375,236,1 



>QK< 
>MB< 
>JC< 




130 LOCATE 3B,25:FQR i=i TO 3:PEN i >TE< 

:PRINT".";:rOT 

140 RUN "Icehdrial" >CF< 

156 DATA 90,280,76,275,66,270,55,26 >RG< 

5,45,258,40,256,35,244,30,220,32,21 

S, 34, 265, 36, 260, 38, 185,42,182,50, 18 

0,60,175,70,176,00,176,96,175,94,17 

8,104,180,110,182,120,186 

166 DATA 125,265,136,268,142,210,15 >HH< 

6,215,155,226,153,222,146,236,140,2 

32, 136,224, 124,218, 125,265, 136, 190, 

146, 188, 14B, 186, 154, 188, 162, 196 

170 DATA 175,192,178,204,186,212,17 >FJ< 

8,220,176,230,186,240,196,238,198,2 

22,260,216,202,198,200,216,198,222, 

202, 23B, 210, 246, 220, 230, 226,200, 238 

,204 




180 DATA 246,216,250, 236,-258,249,27 >UK( 

0,236,258,240,256,230,246,216,252,2 

80,268,284,270,210,274,220,260,390, 

274,220,280,208,290,214 

190 DATA 302,222,306,254,304,256,30 >6L< 

0,256,302,243,306,250,314,254,322,2 

58, 326, 254 , 322, 240 , 326, 21 5, 340, 222, 

350,230 

200 DATA 355,240,355,260,355,240,36 >X(X 

0,232,370,238,380,242 

216 DATA 390, 250,375, 270,406,285, 46 >HÙ< 

4,300,406,326,398.336,380,328,376,3 

20, 380, 306,386, 2B4,395, 276,400, 250, 

410,240,422,246 

226 DATA 430,255,436,270,440,288,44 >RE< 

4,302,446,320,440,340,424,338,420,3 

20,426,360,430,282,436,270,446,258, 

454,250,466,260 

230 DATA 470,275,474,282,480,290,49 >EF< 

0,286,480,296,474,262,470,275,472,2 

60, 480, 256, 484, 258, 490, 262, 494, 272, 

490,286,560,294 

240 DATA 506,300,516,290,522,260,51 >VG< 

6,290,520,390,530,306,540,296,546,2 

66,560,276 



/ liHr\û£ 



1 ' 


;w6' 


2 CENORILLON 


>HC< 


3 ' 


>ÏD< 


1 'layrent CHABERT 


>JEi 


5 Mai 19BS 


,UF> 


4 ' 


>BG< 


18 ON BREAK 60SUB »18 


,-'UB; 


15 GOSUB 65088: RESTQRE 


>K6< 


28 GOTO 888 


>«C 



36 '** TEST OBJETS EN POCHE ** >JD< 

40 PRINTtt2:PRIMT*2:PRIMT#2 >GE< 

56 IF ccleja=6 AND cclebu=6 AND cla >«F< 

■=6 AND pochî= JU THEN PRINT#2,"Tu n 

e" : PRINT#2, " transportes" : PRINTI2, " r 

ien.":f<EÎURN 

60 PRINT*2,"Tu transportes" :PRINTI2 >XG< 

70 IF clamO0 THEN PRINT#2,"Une lasi >NH< 

pe" 

B0 IF ccleja=l AND ccleau=l THEN PR >RJ< 

lNT*2,'Deux clés" 

98 IF ccleja=l AND cclebu=0 THEN PR >RK< 

INT#2,"Une cle" 

100 IF ccleja=0 AND cclebu=l THEN P >KB< 

RINT#2, u Une cle" 

116 IF pcch*<>"" THEN PRINT*2,pocn$ >YC< 

120 RETURN >GD< 

136 « TEST VISITE BELLE-HERE ** >BE< 
146 tps=tps+l:LQCATE tt3,l,l:PRINTtt3 >AF< 
, "Temps :";tps:IF tps=60 THEN CLS:P 
RINT"Tu n'es pas alise voir u :PfiINT" 
ta belle-mere depuis plus d'une heu 
re,":PR!NT"tu es privée de bal.":SQ 
TO 56000 
150 RETURN 

160 '** TEST TACHES EFFECTUEES ** 
170 t=t-l: 

180 IF t>l THEN PRINT"I1 te reste"; >HK< 
t; "taches a effectuer, 
190 IF t=l THEN PRINT'ïl ne te rest >JL< 
e qu'une tache a effectuer." 
200 IF t=$ THEN FfllNTTu as termine >YC< 
ton travail, retourne":PRINÏ"dans 
ta chambre, pour te préparer." 
210 RETURN >GD< 

220 « TEST VXABULAIRE ** >TE< 

230 esp=0 >HF< 

240 FOR i=l TO LEN(acrt) >VG< 

250 IF MID*(act*,i,l!=" " THEN esp= >DH< 



. KG< 



;EJ< 



260 NEXT i 

276 IF esp=6 THEN PRINTJe ne cospr 

end pas !":RETURN 

280 actg*=LEFT$(act$,esp-l):ver*=LE 

FT$(actgï,4) 

290 actd>=RIGHTÏ(act*,LEM(act*)-esp 

):obj*=LEFT*(actdï,4) 

300 ver=6:obi=6 

310 RESTORE 36006 

320 FDR i=l TO 15 

330 READ datl:IF dat$=verï THEN ver 

=1 

340 NEXT i 

556 FOR i=l TQ 28 

360 READ datJrIF dat$=objï THEN obj 



>NK< 



■■1 

370 NEXT i 
386 IF ver=0 THEN PRINT"Je ne compr 
end pas "$attg*j" !" 
396 IF obj=0 THEN PRINT"Je ne cospr 
end pas ";actdï;" !" 
400 RETURN 

416 UINDOW #0,1, 40,1, 25:H0DE 2:INK 
6,13:PAPER 0:INK 1,0:PEN 1:B0RDER 1 
3: LIST 
426 '*# DESSIN ARMOIRE ** 

421 FDR x=0 TO 20 STEP 2ihWE x.0iD 
RAW x,280,2:NEXT x 

422 FOR x=20 TQ 146 STEP 2: MQVE x,l 
6:DRAW x,286,2:NEXT x 

423 FOR x=140 TO 166 STEP 2:MQVE x, 
0:DRAU x,280,2:NEXT :■; 

424 MQVE 10,26:DRAW 10,270, 1:DRAW 1 
50,270, 1:DRAH 150,20,1:DRAW 10,20:M 
OVE 86,20:DRAH 80,276,1 

425 HQVE 66,140:DRAW 70,140,l:f1Ov , E 
90,140:DRAN 106,146,1 

426 RETURN 

430 '** DESSIN LIT #* 

431 FOR y=20 TO 50 STEP 2:HQVE 180, 
ysDRAW 376,y,3:NEXT y 

432 FOR x=176 TQ 1B6 STEP 2:MÛVE x, 
0:DRAW x,100,2:NEXT x 

433 FOR x=370 TQ 380 STEP 2:1*^ x, 
0:DRAH x,140,2;NEXT x 

434 FOR i=l TO 360 STEP 15:QRIGIN 3 
55,65:DRAW COS(i!*14,SIN(i>*14,3:NE 
XT i 

435 ORIGIN O,0:RETURN 

440 '** DESSIN TABLE « 

441 FOR x=145 TO 160 STEP 2:MQvE x, 
6:DRAW x,100,2:MDVE x+95,0:DRAU x+9 
5,100, 2:NEXT x 

442 FOR y=160 TO 110 STEP 2:MOVE 10 
0,y:DRAH 300,y,3:NEXT y 

443 RETURN 

450 '** DESSIN ASPIRATEUR ** 

451 hWE 196,0!DRAW 244,0,2.rfivE 19 



>HJ< 
>ZK< 

/PH<; 



>Bh\ 

>LH, 

m< 

>HK< 

;tl< 
>8W 



)CN( 
>AJ< 



>QM< 

)PL< 



6,2:DRAW 244,2,2:t10VE 198,4:DRAW 24 
2,4,2: MQVE 214,6iDRAN 226,6,2 

452 FQR y=8 TO 58 STEP 2:M0VE 218,y 
:DRAH 222,y,3:NEXT y 

453 «NE 206,52:DRAN 234,52,2:M0VE 
206,54:DRAW 234,54,2:MQVE 284,56:DR 
AW 236,56,2:MQVE 204,58:DRAW 236,58 
,2 

454 FOR y=60 TO 126 STEP 2: MOVE 292 
,y:DRAW 238,y,2:NEXT y 

455 MOVE 264,122:DRAW 236,122,2:HÛV 
E 204,124:DRAW 236, 124,2:H0VE 286,1 
26:DRAW 234,126,2:MGVE 296,128:DRAW 

234,128,2 

456 FOR y=130 TO 158 STEP 2:M0VE 21 
B,y:DRAU 222,y,3:NEXT y 

457 FOR y=76 TO 118 STEP 2:M0VE 218 
,y:DRAW 222,y,3:NEXT y 

458 MOVE 218,152iDRAW 222,152,2:PLO 
T 228,154,2 

459 RETURN 

m '** INTERROGATION ** 

861 act*="":PRINT 

802 LÛCATE l,VPQSi#0):PRINT"?> u ;act 

*î"< "; 

8â3 IF L£Nlactî)=26 THEN SOUND 4,20 

Ô,5e,7:S0UND 1, 266/3,50, 7:SQUND 2,2 

80/5,50,7:PRINT" ":PRINT"Cette phra 

se est trop langue !":SOTO 800 

B04 in*=INKEYÎ:IF in*= u ' GOTO B84 

B65 IF in*=CHSU3) GOTO 878 

866 IF in$=CHRIU27> AND L£N(act(] = 

THEN SOUND 4,100,10,7:SOUND 1,180 

/3,10,7:SOUND 2,100/5,10,7:GQTO 804 



B67 IF int=CHR$(127) WD LEN(act$)> >GR< 

8 THEN actt=LEFT*(act*,LENiacM)-l) 

:GOTO 882 

808 actï=act**int:GOTO 802 >JT< 

B70 PRINT " ":act*=UPPERÎ(act*):RET >YR< 

URN 

886 '** DEBUT ** >DT< 

885 ENV 1,2,1, 2,2,-1, 2:ENv 2,2,-2,4 >Z¥< 

890 GOSUB 40088 >HU< 

891 MODE i >W< 
895 DEG >6Z< 
9Ô6 WINDOW «0,1, 40,1, biPAPER 0:PEN >GK< 
2:CLS 

918 HINDQW tH,l,25,7,25:PAPER #1,1: >TL< 

PEN #1,2:CLS #1 i 

928 HINDOU #2,26, 40,7, 24:PAPER #2,3 >FM< 

:PEN #2,2:CLS #2 

938 HINDOU #3, 26, 40, 25, 25: PAPER #3, >PN< 

3:PEN *3,2:CLS #3 

946 brk=0:fp=0:t=8:grl=0:cla»=0:ccl >EP< 

ebu=0:ccleja=0:cQf2=6:cof8=6:arm4=6 

:arm6=8: ann7=6: arm9=0: ansl6=0: ref =6 

: c on =0 : par tca v=0 : pa r t j a =6 



958 clebu=l:cleja=l:aspdef=l:aspbon >VB< 

=l:lam=l:dra=l:ser=l:linsal=l:linse 

c=i:via=l:bai s l:bou=l 

951 caef=12 >GR< 

968 poch*="" >BR< 

970 tps=0:LOCATE #3,l,l:PRINTS3,"Te >FT< 

ips :";tps 

986 EVERY 250,3 GOSUB 136 >ftj< 

990 GOTO 10006 >DV< 

1668 '« GRENIER #1 ** >»< 

1605 BORDER 1:INK 0,l:IN(f 1,15s INK >ZG< 

2,26: INK 3,6 

1616 CLS #1:CLS #2 >ZC< 

1026 LOCATE #1,8, lsFRINTtl, "GRENIER ffî< 



1" 



.:&!■■ 



1029 CLS *2 

1630 PRINT#2,"Gauche":PRINT#2,"Droi >EE< 

te":PRINT*2, u Bas":PRINT#2:PRINT#2, u 

Un message" 

1646 GOSUB 36 

1056 GOSUB 860 

1070 IF act$="DRÛITE" GOTO 2666 

10B0 IF act$="BAS u GOTO 6000 

1090 IF act$="GAUCHE" THEN grl=l: 

TD 11600 

1100 IF act*="HAUT" GOTO 1140 

1110 GOSUB 220 

1120 IF esp=0 OR ver=0 QR obj=6 GOT >CE< 

1056 

1136 IF verl="LIRE" WD obj$="MESS" >XF< 

THEN PRINT'faire du feu.":GOT0 165 


1140 PRINT"Inpossible '"iGOTD^ >AG< 
2000 '« GRENIER #2 »* >YC< 

2665 BORDER 0:INK 0,0:INK 1,13: II* >ZH< 
2,26:INK 3,3 

2010 CLS #1:CLS #2 >AD< 

2620 LOCATE #1,8,1:PRINT#1, "GRENIER >JE< 

N. 2" 

2021 FOR y=6 TO 60 STEP 2:hWE 120, >KF< 
y:DRAW 2B6,y,3iNEXT y 

2022 FOR y=0 TO 60 STEP 10:t1OVE 126 >QS< 
,y:DRAN 2B0,y,6:NEXT y:MQVE 120,6:D 

RAN 120,60,0!MOVE 236,0:DRAW 280,60 
.0 

2023 x1=122;k2=278:FOR y=62 TO 76 S >KH< 
TEP 2:MOVE xl.ysDRftW x2,y,3: k1=x1+6 
:x2=x2-6:NEXT y 

2025 HQVE 120,6Ô:DRAW xl,y,0:DRAW x >NKC 

2,y,0:DRAN 280,60,8 

2029 CLS #2 >LP< 

2630 PRINT#2,"Gauche":PRINT#2 >NF< 

2646 PRlNÏ#2,"Un attire' >NG< 

2056 IF clebu=l AND cof>l THEN PRI >GH< 

NT#2,"Une cle" 

2060 GOSUB 30 >TJ< 

2070 60SUB B06 >BK< 

2696 IF act$="GAUOE" GOTO 1066 >GM< 

2100 IF act$= u HAUT" OR actï="DROITE >DD< 



" QR actï="BAS" GOTO 2160 

2110 6ÛSUB 226 >RE< 

2120 IF esp=6 OR ver=6 OR obj=0 GOT >GF< 

2670 

2130 IF vert^OUVR" AND obj$="COFF" >MG< 

AND Cûf2=l THEN PRINT'le coffre es 
t déjà ouvert.": GOTO 2670 
2140 IF ver*="OUVR" AND obj*="COFF" >KH< 

AND cof2=0 THEN PRINT" Il y a une c 
le a l'intérieur. ":a)f2=l:G0T0 2029 



2156 IF ver*="PREN" AND obj$="CLE M 
AND cof2=l AND clebu*l THEN PRINT"D 
'accord. ":clebu=0:cclebu=l:SOTG 202 



2160 PRINT"impossible !":GOTO 2676 >GK.< 
3666 ♦* GRENIER #3 ** JAD< 

3005 BORDER 13iINK 0,13:INK 1,2: INK >FJ< 

2,6! INK 3,26 
3010 CLS #1:CLS #2 >BE< 

3020 LOCATE #1,B,1:PRINÎ#1, "GRENIER >LF< 

N. 3" 

3630 PRINT#2,"Droite K :PRINT#2 >TG< 
3646 IF aspdef =i THEN PRINT#2, "Un s >YH< 
spirateur":GOSUB 450 
3056 GOGUB 30 >TJ< 

3066 GOSUB 800 >BK< 

3080 IF act*=" DROITE" GOTO 4060 >N«< 
3096 IF act*="HAUT" OR actï="GAUCHE >HN< 
■ OR act$="BAS" GOTO 3136 
3100 GOSUB 220 >RE< 

3110 IF esp=6 OR ver=6 OR obi=6 GOT >GF< 
D 3060 
3120 IF verï="PREN" A«D obj^'ASPI" >NG< 

AND pochi="" THEN PfiINT"D'accord." 
:aspdef=6:pochï="Aspirateur":G0T0 3 



3Ï39 PRINT u ImpD55ible !":6DT0 3Ô60 


>EH< 


4000 '** GRENIER #4 ** 


/CE; 


4M5 BORDER S: ÎNK 0,0:INK i,2:INK 2 >UK< 


,25: INK 3,1 




4819 CLS ll:ELS «2 


>CF< 


462» LOCSIE tl,8,liPRINTIl,"BRENiER 
N. 4 U 
4621 SOSUB 426 


>NG; 


,XHi. 


4629 CLS 12 


;«< 


4638PRINT»2,"6audie";PRINT«2,"D™ 


)UH> 


ts":PRI«I«2 




4646 PRINT#2,"Un messa9e":PfiINT#2,' 


>LJ< 


Une armoire" 




4656 IF ar«4=l « cleia=l HO PRI )SK< 


NTS2, "Une cle" 




4646 GOSUB 36 


>VL< 



4090 IF act*= "GAUCHE" GOTO 3088 
4100 IF act*="DROITE" GOTQ 5008 
4110 IF act*="HAUT" OR act$="BAS" 
QTO 4186 
4120 GOSUB 228 



4130 IF esp=t) OR ver=0 OR abj=0 SOT >MJ< 

4070 

4146 IF verï="LIRE" AND objl="MESS" >MK 

THEN PRINT'Passer l'aspirateur dan 
s":PRINT H la salle a manger. H :60TQ 4 
678 
4158 IF verS="QUVR" AND obj$="ARHO" >FL< 

AND ari»4=0 THEN PRINT" Il y a une c 
le a rinterieur.":ar«4=l:GQTQ 4629 

4160 IF ver$="OWR" AND obj*="ARMO u >6M< 
AND ar»4=l THEN PRINT"Elle est dej 
a ouverte": GOTO W7fl 
4170 IF ver*='PREN" AND obj*= u CLE" >BN< 
AND an4=l AND cleja=l THEN PRINT"D 
'accord. ":cleja=0:ccleja=l:GÛTO 462 
9 

4186 PRINT"I*possible !": GOTO 4678 >NP< 
5666 H 6RENIER #5 « >EF< 

5865 BORDER 9:INK 6,9:INK 1,8: INK 2 >VL< 
,6iINK 3,25 

5816 CLS #1:CL5 #2 >DG< 

5Ô20 LOCATE #1,8, l:PRINTttl, "GRENIER >QH< 
N. 5" 

5621 GOSUB 448 >AJ< 

5829 CLS #2 >PT< 

5830 PRINT#2,"Gauche":PRINT#2,"Bas" >HJ< 
:PRINT#2 

5646 PRINT#2, "Une table" >HK< 
5858 IF lam=l THEN PRINTtt2,"Une lai» >EL< 
pe":FOft y=112 TO 136 5TEP 2:M0VE 22 
0,y;DRAW 234,y,2:NEXT:F0R y=122 TO 
126 STEP 2:M0VE 224,y:DRAW 236, y,3: 
NEXT 

5866 GOSUB 38 >WM< 
5878 GOSUB 866 >EN< 
5690 IF act$="GAUCHE" BQTO 4006 >NQ< 
5100 IF act$= u BAS" GOTO 18060 >VG< 
5116 IF actï="HAUT" OR actt="DROITE >NH< 
" GOTO 5156 

5126 GOSUB 228 >WJ< 

5138 IF esp=0 OR ver=6 OR obj=0 60T >PK! 
Q 5870 
5146 IF ver$="PREN" AND obj$="LAMP" >CL< 

AND laa=l THEN PRINT'D 'accord. ':1a 
■=0:daa=2:FOR y=U2 TO 130 STEP 2: 
HOVE 220,y:DRAH 234,y,l:NEXT y:GOTO 

5629 

5158 PRINT"Iiipossible !':G0T0 5676 >MH< 
6886 « LINGERIE *» >HG< 

6865 BORDER 26:INK 8,26:INK 1, 14: IN >ZM< 
K 2,1:INK 3,17 

6616 CLS Kî-OS #2 >EH< 

6628 LOCATE #l,10,l:PRINTtl,"LINGER >RJ< 
IE" 
6621 GOSUB 426 >ZK< 

6029 as #2 >QU< 

6030 PRINT#2,"Draite D :PfilNT#2,"Haut !>BK< 
■:PRINT#2,"Bas":PRINT#2 



6646 PRINT#2,"Un aessage":PRINTB2," >NL< 

Une arBOire" 

6656 IF arra6=l AND dra=l THEN PRINT >FM< 

12, "Des draps" 

6668 IF armù=l AND ser=l THEN PRINT >RN< 

12, "Des serviettes" 

6876 60SUB 38 >YP< 

60B0 SOSUB 600 >G£K 

6100 IF act$="HAUT" GOTO 1068 >UH< 

6118 IF act$="BAS' GOTO 12066 >ZJ< 

6126 IF actï="DROITE" 6QT0 7680 >PK< 

6130 IF act*="GAUCHE" GOTO 6220 >QL< 

6148 GOSUB 220 >ZM< 

6156 IF esp=6 OR ver=6 OR obj=6 GOT >VN< 

6086 

6160 IF ver*= u LIR£" AND ûbjS="MESS" >MP< 
THEN PRINT "Prendre la viande dans 

le congélateur": PRINT "et la ranger 
dans le réfrigérateur. ":GÛTO 6680 

6170 IF ver$="OUW" AND objï="ARMD" >HQ< 

AND arit6=0 THEN PRINT" Il y a des s 
erviettes et":PRINT"des draps a l'i 
nterieur.":arB6=l:G0T0 6029 
61B0 IF ver$=*QUVR" AND obj»="ARMQ" >RR< 

AND ari»6=l THEN PRINT'Elle est dej 
a ouverte. ":GOTO 6686 
6190 IF ver$="PREN" AND ±j$="SERV" >VT< 

AND arm6=l AND ser=l AND podi*="" 
THEN PRINT"D'accord.":ser=6:pnch*=" 
Serviette": GOTO 6029 
6268 IF ver$="PREN" AND objt="DRAP" >UJ< 

AND ari»6=l AND dra=l AND poch*="' 
THEN PRINT"D'accord.":ljra=8:poch$= f, 
Draps": GOTO 6029 
6218 IF ver$="RANG" AND obj*="LING" >BK< 

AND an»6=l AND poch$="Linge sec" T 
HEN PRINT"D'accord.":pochï='" i :GOSUB 

166iG0T0 6029 
6226 F'RINT"Impossible !":GOTO6O80 >NL< 
7000 '** CHAMBRE DE LA BELLE-MERE * >UH< 
* 

7665 BORDER 25: INK 0,25: INK 1,16: IN >CN< 
K 2,3: INK 3,17 

7610 CL5 «saS #2 >FJ< 

7620 LOCATE #1,1,1:PRINT#1, "CHAMBRE >AK< 

DE LA BELLE-MERE" 

7021 GOSUB 420:SOSUB 436 >VL< 
7629 CLS #2 >RV< 

7O30 PRINT#2,"Sauche":PRINT#2,"Droi >XL< 
te":PRINT#2 

7046 PRINT#2,"Un lit":PRINT#2,"Une >Fr1< 
arnoire" 



7050 GOSUB 30 

7666 GOSUB 860 

7080 IF act$="HAUT" OR act$=" 

OTO 7140 

7090 IF act$="GAUCHE" 30T0 6ï 

7166 IF act*= "DROITE" GOTO SC 

7116 GOSUB 226 



>XN< 

>FP< 

' G >LR< 



>PJ< 
>XK< 



7126 IF esp=0 OR ver=0 Ofi obj=6 GOT >RL< 
7660 

7130 IF ver$= , RANG" AND obj$="BQUI" >TM' 
AND poch*="Bouillotte" AND ar«7=l 

THEN PRINT'D'accord.":poch$=*":GOSU 
B 160:6OTO 7629 

7131 IF ver*="OUVR".ArlB obj*="ARMO u 
AND arm7=0 THEN PRINTElle ne cont 

ient rien d'intéressant. ";arm7=l:G0 
TO 7666 

7132 IF ver$="OUVR" AND objï="Afif10 B 
AND arm7=l ThEN PRINT"Elle est dej 

a ouvBrte.":GOTO 7666 

7148 PRINT"Iiipassible !*:GQTO 7066 >PN< 

S666 '« SALLE DE BAIN ** >ZJ< 

8685 BORDER 16: INK 6,16:INK 1,26: IN >TP< 

K 2,2:INK 3,0 

8810 CLS #1:CLS #2 

8620 LOCATE #1,7, l!pRINT#l, "SALLE D >HL< 
E BAIN" 

8621 FOR y=0 TO 116 STEP 4:M0VE 10O 
,y:DRAH 196,y,2:MOVE 186,yt-2:DRAW 1 
98,y+2,0:NEXT y 

6022 MOVE 10O,0:DRAW 196,0,3îDRAU 1 
90,116,3:DRAW 160,116, 3:DRAW 166,6, 
3 
B623 FOR y=93 TO 96:HDVE 166,y:DRAW >UP< 

198,y,3:NOT y 

8624 MOVE 220,146jDRAW 226,160,2:MD >JQ< 
VE 222,138:DRAH 222,162,2:HÛVE 224, 
13S:BRAW 224,162,2:M0vî 226,140:DRA 
U 226,160,2 

8625 MOVE 320,146:DRAW 320,160, 2:M0 
VE 322,138:DRAW 322,162,2iM0VE 324, 
13B:DRAW 324, 162, 2: MOVE 326,140:DRA 
U 326,166,2 

8626 MOVE 226,156:DRAW 326,156, 2:M0 >LT< 
^220,144îDRAW 328,144,2 
6829 CLS #2 

8838 PRINT#2,"6auche";PRINÏ#2, h Droi 
te"iPRINT#2 

8046 PRINT#2,"Un «essage":PRINT#2," 
Un coffre 6 un":PRINT#2,"Porte~serv 
iette" 

B856 IF cof6=l AND linsal=l THEN PR 
INT#2,°Du linge sale" 
8660 GOSUB 36 >ZQ< 

B870 GOSUB 860 >HR< 

B690 IF act$="HAUT" OR act$="BAS" G >VU< 
OTQ ai 96 

S166 IF act$="GAUCHE' GOTO 76 
8116 IF act*="DROITE" GOTO 96i 
6120 GOSUB 220 

8130 IF eap=0 OR ver=6 OR obj^ 
8678 

8146 IF ver*="LIRE" AND obj$= 
THEN PRINT"Ranger le linge s 
s la lingerie. ":GOTO 8670 
B150 IF verï="OUVR- AND obj*= 



« ROT 

MESS" 



;Lk< 
>TL( 

>m 



AND cofB=l THEN PRINT"I1 est déjà 
ouvert. ":GOTQ 8676 

IUA IF ver$="0UVR B AND ahj$= H CQFF" >PR< 
AND cofB=fl THEN PRINT"I1 y a du li 
nge sale a l'intérieur. ":cofB=l:G0T 
BÔ29 

8176 IF ver*="PREN" AND qqj$="LING" >l*T< 
AND cofB=t AND linsal=l AND poch*= 
" THEN PRINT"D'accord.":lin5al=8:p 
och$="Lin9e sale":GQT0 3029 
8180 IF ver$="ACCR" AND obj$="SERV" >XU< 
AND pochl="Serviette" THEN PRINT'D 
'accord. ,1 :pach*= u ":60SUB 166:GQTD 8 
029 

S19e PRINT"Impo5sihle !":GOT0 8Ô7» >¥V< 
9006 'H CHAMBRE DES SOEURS ** >XK< 

9885 BORDER 15: INK 8,15: INK 1,14: IN >TQ< 
K 2,0: INK 3,6 
9616 CLS Ils CLS #2 >HL< 

9628 LDCflTE #1,5, 1:PRM*1, "CHAMBRE >HM< 
DES SOEURS" 

9821 GOSUB 436:GDSUB 426 >XN< 

9629 CLS #2 >UX< 
9636 PRINT#2,"Sauche":PRINT#2 >I#K 
9846 PRINT#2,"Un lit h :PRINT#2,"UnB >HP< 
arwire" 

9856 GOSUB 36 >ZQ< 

9666 6DSUB 866 >HR< 

9ÔB6 IF act$="HAu7° OR act*="&AS u >VU< 

R act$="DRQITE" 60T0 9136 

9696 IF act*="GAUCHE" GOTO 8668 >XV< 

9186 GOSUB 226 >YL< 

9118 IF esp=8 OR ver=Ô DR obj=6 GOT >VM< 

9660 

9128 IF ver*="FAIR" AND objt^LIT" >JN< 

AND poch*="Draps" THEN PRINT"D'acca 

rd.":poch*="":6QSUB 166iGOTQ 9629 

9128 IF ver*="QUVR" AND obj*="ARMO" >BX< 
AND arm9=l THEN PRINTEIle est dej 

a ouverte."iG0T0 9666 

9129 IF verï="OUVR" AND obj*="ARMQ" >J¥< 
AND ara9=6 THEN PRINT"Elle est vid 

e.":arra9=l:GOTO 9666 

9136 PRINT" Impossible *":GOTO 9066 >TP< 

16868 '** CHAMBRE DE CENDRILLON ** ;NB< 

16685 BORDER 14: It* 6, 14: INK 1,16:1 >QG< 

NK 2,1:INK 3,25 

1Ô816 CLS tl:CLS #2:IF tps<l THEN C >HC< 

LS:LOCATE 1,6 

16828 LDCATE #l,3,l:PRINTttl,"CHAMBR >XD< 

E DE CENDRILLON" 

16825 GOSUB 426: GOSUB 436 >VJ< 

16836 PRINT#2,"Haut":PRINT#2,"Bas': >TE< 

PRINT#2:PRINT#2,"Un nessage^PRINT» 

2, u Un lit":PRINT#2,"une armoire" 

16040 60SUB 30 >RF< 

18645 IF t=8 THEN CL5:PRINT"Tu as t >YL< 

eraine ton travail, ":PRINT"tu peux 

te préparer pour aller au bal.°:fp= 



l:cœf=10:GOTO 58666 

18856 GOSUB 866 >A6< 

10676 IF act$="DROITE" DR act*="GAU >ÏJ< 

CHE" GOTO 16156 

166B0 IF act*="HAUT" BOTO 5868 >CK< 

16696 IF actS="BAS" GOTO 16666 >HL< 

18166 GOSUB 220 >RC< 

18116 IF esp=8 OR ver=8 OR obj=6 60 >FTX 

TO 18656 

16128 IF ver*="0UVR" AND obj$="ARM0 >XE< 

' AND arml0=6 THEN PRINT'ElIe est v 

ide.":arml8=i:GQTQ 16656 

16138 IF ver*="0UVR" AND obj*="ARMO >YF< 

' AND arml0=l THEN PRINT'EUe est d 

eja ouverte. ":G0TD 16656 

16146 IF verï="LIRE u AND objt="MESS >QG< 

■ THEN PRINPFaire le lit des soeur 

S.': GOTO 16658 

18158 PRINT"Impossible !":BQT0 1685 >FH< 



,RÛ 



'** JARDIN ** 
11085 BORDER 2:INK 8,2: INK 1.18: INK > 

2,6:INK 3,26 

CLS MiCLS #2 > 

615 IF gri=l GOTO 11836 ) 

628 tp5=8:L0CATE #3,1,1:PRINT#3," > 
Tenps : H jtps:PRINT"Tu es venue voir 

;a belle-mere,":PRINT"ton temps re 
commence a 8." 

.836 LOCATE Kl, 11, 1:PRINT#1, MARDI > 

632 FOR x=18 TO 20 STEP 2:M0vE X, > 
DRAW x,286,2:M0vE x+376,6:DRAW :<* 
6,266, 2:NEXT x:M0VE 26,206:DRAW 3 



839 CLS 12 >PQ< 

PRINTS2, "Droite" :PRINT#2 >VG< 

858 PRINT*2,"Un message" >DH< 

.068 IF linsecOl SOTO 11876 >GJ< 

661 PRINT#2,"Du linge sec" >VK< 

,062 FOR y=56 TO 198 STEP 2:1WE 4 >PL< 
8,y:DRAH 288,y,3:NEXT y 
11663 FOR y=168 TO 176 STEP 2:M0VE >MM< 
300,y:DRAW 32û,y,6;M0VE 338,y:DRAW 
350,y,8:NEXT y:F0R y=172 TO 198 STE 
P 2:M0VE 366,y:DRAW 350,y,6:NEXT y: 
HOVE. 326, 175: DRAW 326,198,2 
11078 GOSUB 38 >WK< 

11075 IF grl=l THEN CLS:PRINT"Cette >UQ< 
porte donne dans le vide, s :PRINT u t 
u tombes dans le jardin et":PRINT"t 
u te casses une jamtae.":PRINT"Tu n' 
iras pas au bal ce soir.":GDT0 5060 
8 

11086 GOSUB 868 >EL< 

11090 tps=6:L0CAT£ i3,l,I:PfiIHT#3," >EM< 
Teips :";tps 

11116 IF act$="HAUT" OR act*="BAS" >GE< 
OR act$="GAUCHE" GOTO 11178 



111*6 IF act$="DRQITE" GOTO 12666 >KFi 
11138 GOSUB 226 >WB< 

11148 IF esp=6 OR ver=6 OR obj=6 60 >PH< 
ÎO 116B8 

11156 IF vert="LIRE" AND obj$="MESS >AJ< 
" ÎHEN PAINT "Ace rocher une serviett 
e dans H :PRINT B la salle de bain.":G0 
TO 11688 

11166 IF ver*="PREN" AND obj$="LINB >CK; 
" AND Ursk'1 AND pochU" THEN PR 
INT"D'accard.":linsee=Ô:pocht="Ling 
e see":F0R y=50 TO 198 STEP 2:M0vï 
48,y:DRAN 356,y,l:NEXT y:GOTO 11839 

11178 PRINPImpossible !":GQT0 U8B >NL< 

6 

12866 '« ENTREE ** >ED< 

12685 BORDER 1: INK 0,1: INK l,4i INK >ZJ< 

2, 26: INK 3,8 

12616 CLS KliCLS #2 >DE< 

12628 LOCATE #1, 11, 1:PRINT#1, "ENTRE >PF< 
£" 

12629 CLS #2 >F>q< 
12636 PRINT#2,"Gauche":PRINT#2,"Dro >CG< 
ite M :PRINT#2,"Haut":PRINT#2,"Bas":P 
RINTK2 

12040 GOSUB 38 >UH< 

12845 IF ref=l THEN CLS:PRINT"Tu as >KN< 

oublie de feraer le réfrigérateur, 
":PRINT"tu es privée de bal.":GOTO 
56666 

12856 GOSUB 688 >CJ< 

12078 IF act$="HAUT" 60T0 6660 >EL< 
126B6 IF act$="BAS u GOTO 17866 >KM< 
12890 IF actt="DROITE" GOTD 13866 >UN< 
12166 IF act$="SAUCHE" AND ccleja=6 >ZE< 

THEN PRINPLa porte est fermée a c 
le.":60TQ 12856 
12118 IF act$=" GAUCHE" AND ccleja=l >JF< 

GOTO 11088 

12126 GOSUB 220 >WG< 

12136 IF esp=8 OR ver=6 OR obj=0 GO >MH< 
ÎO 12650 
12146 PRINT"Impossible !"!G0T0 1265 >JJ< 



13688 '** CUISINE ** >PE< 

13685 BORDER 16: INK 6,16:INK 1,14:1 >KK< 

NK 2,26: INK 3,0 

13818 CLS liiOS #2 >EF< 

13626 LOCATE #1, 18,1:PRINT*1,"CUISI >ffl< 

NE' 

13621 FOR x=136 TO 269 STEP 2:HQVE >HH< 

*,0:DRAW x,226,2:NEXT x 

13822 MOVE 136,0:DRAN 138,158,3:DRA >NJ< 

H 268,158,3:DRAU 266,6,3:DRAM 136,6 

13023 KOVE 136,162:DRAW 136,220,3:0 >KK< 
RAH 266,226,3:DRAU 260, 162, 3: DRAW 1 
30,162,3 



13024 FOR x=140 TO 144:MQVE x,70:Dfi >JL< 
AW x,136,3:M0vE x,170:DRAW x, 216,3: 
NEXT x 

13829 CLS #2 >QR< 

13030 PflINT*2,"Gauche":PRINT#2,"Dro ^MH< 
ite":FRINT*2, B Bas":PRINT#2 
13046 PRINTK2, "réfrigérateur" >JJ< 
13856 GOSUB 30 >WK< 

13660 GOSUB 800 >EL< 

13086 IF act*="HAUT" 6DT0 13190 >TN< 
13696 IF act*= "GAUCHE" GOTO 12006 >Qp< 
13IÔ0 IF act$="DROITE" GOTO 14600 >MF< 
13116 IF act$="BAS" AND cclebu=0 TU >HG< 
EN PRINT'ta porte est fermée a cle. 
":S0T0 13666 

13126 IF act*="6AS" AND cclebu=l GD >YH< 
TO 16666 

13136 50SUB 220 yfji 

13146 IF esp=0 OR ver=0Qfi obj=0 SO >RK< 
TO 13666 

13150 IF verï="OUVR" AND objï="REFR >DL< 
" AND ref=0 THEN PftINT' , D , accord. "ir 
■M: GOTO 13666 

13166 IF ver$="OUVR* AND abj$="REFR >XK< 
" AND ref=l THEN PRINT"I1 est déjà 
ouvert. ":G0TD 13660 

13170 IF verï="RANG" AND obj$="VIAN >VN< 
' AND ref=l AND poch>= "Viande" THEN 
PRINT"D'accord.":poch*='"':GOSUB 16 
6:G0T0 13029 

13186 IF ver$="RANG" AND abj$="VIAN >DP< 
" AND ref=0 AND poch*="Viande" THEN 
PRINT'le réfrigérateur est ferœe. " 
:GOT0 13066 

13184 IF ver$="FERH" AND objï="REFR >HU< 
" AND ref=6 THEN PAINT" Il est déjà 
terme.": GOTO 13666 

13185 IF ver*="FER11" AND obj*="REFR >AV< 
" AND ref=l THEN PRINT"D'accord.":r 
ef=6iG0TQ 13060 

13196 PRINT"Inpossible !':60TQ 1366 >TQ( 


14666 '« SALLE A MANGER ** >UF< 
14005 BORDER 15: INK 0,15: INK 1,14:1 >WL< 
NK 2,1:INK 3,26 

14010 CLS 11:08 #2 >FG< 

14026 LOCATE *1,7,1:PRINT#1, "SALLE >GH< 
A HANGER" 

14621 60SUB 440 >CJ< 

14022 FOR x=35 TO 40 STEP 2:M0VE n, >TK< 
9:DRAW x,140,2:W)VE x+60,6:DRAW x+6 
0,68,2:MOVE x+265, 8: DRAtt x+265,66,2 
illOVE x+325,6:DRAW x+325,140,2:NEXT 
x:FOR y=66 TO 65 STEP 2:MQVE 46,y: 
DRAM 160,y,3:nOVE 300,y:DRAW 360, y, 
3iNEXT y 

14629 CLS #2 >RT< 

14030 PRINT#2,"Gauche":PfiINTt2, , 'Dra >NJ< 
ite*:PfiINTI2,"Bas"iPRINT#2 



14646 PRINT#2,"Une table":PRINT*2," >FK< 
Des chaises" 

14050 GOSUB 36 ;XL< 

14055 IF re**l THEN CLS:PRINT"Tu as >NR< 
oublie de fermer le réfrigérateur, 
":PRINT"tu es privée de bal. "s GOTO 

50000 

14060 GOSUB 860 >FH< 

14686 IF act$="HAUT" GOTO 14166 >RP< 
14096 IF act$="GAUCHE" GOTO 13660 >TQ< 
14100 IF act*="DROITE" GOTO 15000 >PG< 
14110 IF act$="BAS" GOTO 19066 >HH< 
14126 BOSUB 220 >yj< 

14130 IF esp=0 OR ver=0 OR obj=0 60 >TK; 
TO 14060 

14146 IF ver*="PAS5" AND obj$="ASPI >HL< 
* AND poch*=" Aspirateur" AND aspdef 
=0 THEN CLS:PRINT"Cet aspirateur es 
t défectueux, ":PftINT"Il fait sauter 

les ploaos. a :PRINT*'Tu es privée de 

bal.":G0TO 50000 

14156 IF vert="PASS" AND obj*="A5PI ÏRH< 
' AND poch$="Aspirateur" AND aspbon 
=0 THEN PRINT"D'accard.":poch$="";6 
OSUB 166:60T0 14629 

14160 PfiINT"Impassible !":GQTQ 1406 >RN< 


15006 '** SALON « >GS( 

15665 BORDER 14: INK 0,14:INK 1,25:1 >QH< 
NK 2, 2: INK 3,3 

15610 CLS M: CLS #2 >GH< 

15620 LOCATE #1, 11, l:PRINT#i, "SALON >RJ< 

15021 FOR y=6 TQ 30 STEP 2:hOVE 86, >KK< 
y:DRAW 320,y,2:NEXT y 

15022 FOR i=l TO 360 STEP 18:QRIGIN >DL< 
90,40:DRAW COSIi)*10,SINU)*10:ORI 

GIN 310. 46: DRAW CDS(i)*10,SIN(i)*10 
:N£XT i:QRIGIN 6,6 

15623 FOR y=21 TO 70 STEP 2:t10VE 10 >KN< 
6,y:DftAK 295,y,2:NEXT y 

15624 HQVE 168,71:DRAW 293,71,2:H0V >PN< 
E 110,73:DRAH 291,73,2 

15025 HQVE 80,9: DRAW 326,0,3:DRAW 3 >QP< 
20,36,3:DRAW 86,30,3:DRAW 80,0,3 

15026 HOVE 106,36:DRAW 166,15,3:DRA >BQ< 
H 295,15,3:DRAW 295, 30, 3: MDVE 160,1 
5:DRAW 160,36, 3:M0VE 246,15:DfiAW 24 
0,39,3 

15027 MDVE 106,21:DRAN 106,70,3:DRA >ZR< 
H 110,73,3:DRAM 291, 73, 3: DRAW 295,7 
0,3: DRAW 295,21,3 

15029 CLS #2 >TU< 

15030 PRINT#2,"6auche":PRINT#2,"Dro >¥K< 
ite":PRINT#2 

15640 PRINT#2,"Un canapé" >FL< 
15650 IF bou=l THEN PRINT*2,"Une bo >DH< 
uillotte":HOVE 32,6:DRAW 48,0,3:FOR 
y=2 TO 20 STEP 2jNDVE 36, y: DRAW 50 



,y,3:NEXT y:MQVE 32,22:DRA* 46,22,3 

:MOVE 3B,24:DRAW 42,24,3:t1DVE 36,26 

:DRAW 44,26,3 

15660 GOSUB 30 

15070 60SUB 800 >HP< 

15696 IF act*="HAUT" OR act*="BAS" >QR< 

GOTO 15156 

15100 IF act*= "GAUCHE" GQTD 14666 >LH< 

15110 IF act*="DROITE" GOTO 16660 >TJ< 

15120 60SUB 220 >ZK< 

15130 IF esp=0 OR ver=0 OR obj=0 60 ÎML< 

TO 15670 

15146 IF vert="PREN" AND objt= g BOUI >TH< 

' AND bou=l AND poch^'"' THEN PRINT 

"D'accord. ":bou=0:poch$="Bouillotte 

':FOfl y=6 TO 26 STEP 2:MOVE 30,y:DR 

AW 50,y,l:NEXT y:GOT0 15629 

15156 PRINT"Iapossible !':SOTO 1507 >UW< 

6 

16006 '« BIBLIOTHEQUE t# >PH< 

16005 BORDER 14:INK 0, 14: INK 1,22:1 >QN< 

NK2,3:INK3,16:p=l 

16610 CLS HtOB «2 >HJ< 

16620 LOCATE #1,8,1:PRINT#1,"BIBLI0 >DK< 

THEQUE" 

16021 FOR y=6 TO 126 STEP 2jM0VE 18 >HL< 
0,y:DRAW 220,y,3:DRAW 340,y,6:DfiAW 
3S0,y,3:NEXT y:F0R y=121 TO 156 STE 

P 2:rt0v£ 160,y:DRAW 39a,y,2:N£XT y 

16022 HQVE 226,126:DRAW 220,0,2:DRA >M, 
M 340,0,2:DRA« 340,120,2:W1VE 1»,1 

20: DRAM 1B6,0,2:DRAW 380,6,2:DRAW 3 
80,126,2:HOVE 225,10:DRAW 335,16,2: 
NOVE 225,40:DRAW 335,40,2:FOR x=236 
TO 330 STEP 9:MOyE x,0:DRAW x,50,2 
:NEXT x 

16023 FOR x=10 TO 140 STEP 6:p=p+l: >BN< 
IF P =2 THEN P =3 

16624 IF p=4 THEN p=6 >flP< 

1602^ FOR i=x TO x+6 STEP 2:H0VE i, >PQ< 
16:DRAW i,240,p:NEXT i:NEXT x 

16026 FOR x=0 TO 10 STEP 2:H0VE x,0 >PR< 
:DRAW x,240,2:HQVE x+146,6:DRAW x+1 
46,240,2:NEXT x 

16027 FOR y=6 TO 240 STEP 40:FDR i= >HT< 
y TO y+8 STEP 2:HOVE 0,i:DRAH 158, i 
,2:NEXT i:N£XT y 

16029 as #2 >UV< 

16036 PRINTK,"Gauche":PRINTI2,"Hau >X< 
t":PRINT»2,"Bas ,, îPRINT#2 
16646 PRINT112,"Des livres":PRINTI2, >C«< 
"Une cheiinee" 

16656 GOSUB 36 >ZN< 

6 60SUB 800 >HP< 

16686 IF actt^DRQITE" 60TO 16156 >GR< 
16090 IF actt="HAUT" SOTO 10069 >HT< 
16106 IF ac»="6AUCHE" 60T0 15666 >NJ< 
16116 IF actl="BAS" SOTO 21886 >Ck< 

16128 6QSUB 228 >flL< 



16136 IF esp=8 OR ver=6 Dfi ohj=Ô GO >XM< 
TO 16*6« 

16146 IF verï="FAIR" AND ob;$="F£U" >TN< 
AND pocM-'Boiï" THEN PRINFD'acca 
rd.":poch*="":6QSUB 168:G0T0 16829 
16145 IF ver$="LIRE" AND obj*="LIVR >KU< 
" THEN PRINT'Tu n'es pas la pour li 
re.":GOT0 16669 
16156 PRINT"I«p0S5ible !":GQTQ 1666 >VP< 

e 

17666 '« CAVE #1 ** >YJ< 

17005 BORDER 15: INK 8, 15: INK 1,13:1 >UP< 

NK 2,3: INK 3,26 

17616 CLS #1:CLS #2 >JK< 

17626 LOCATE #1 ,9, 1: PRINT#1. "CAVE N >KL< 

. 1" 

17636 PRINT#2, "HAUT" : PRINT*2 >NM< 

17646 PHINT#2,"Un message" >JN< 

17641 IF boiOl SOTO 17666 >VP< 

17642 FOR i=l TO 366 STEP 36 >WQ< 

17643 ÛRIGIN 140,10:DRAk C0S(i)»ll, >HR< 
SIN(i)*U,2:QRIGIN 176,18:DRAW COSi 
i)*ll,SIN(i)*ll,2:QRIGIN 266,11:DRA 

M CQS(i)*ll,SINli)*16,2:0RISIN 236, 
IliDRAH CQS(i)*ll,SIN(i)*ll,2:QRIGI 
M 266,U:DRAW C0S(i)*U,SIN(i)*U,2 

17644 ORIGIN 155,36:DRAW CQSii)*U, >FT< 
SIN(i)*ll,2:0RIGlN 185,36:DRAN CDS( 
i)*ll,SIN(i)*ll,2:ORIGlN 215,30:DRA 

H CQS(i>*U,SlN(i)*ll,2:0RIGIN 245, 
10: DRAfel CQSli)*ll,SINii)*U,2 

17645 ORIGIN 176, 56: DRAW C0SU)*11, >CU< 
SIN(i)*ll,2:0RIGIN 206,50:DRAW COSI 
i)*ll,SINliS*U,2:QRIGIN 236,56:DRA 

H C0Sli)*U,SIN<i)*11.2 

17657 NEXT i >JX< 

17658 ORIGIN 6,6 >Gï< 

17659 PRINTK2,"Dubois" >ZZ< 
17666 GOSUB 36 >KK 
17676 GOSUB B66 >KR< 
17696 IF act*= "GAUCHE" OR act*="DRO >MU< 
ITE" OR act*="BAS" GOTO 17156 

17166 IF act*="HAUT" GOTO 12666 >CK< 
17116 GOSUB 226 >AL< 

17126 IF esp=0 DR ver=ô OR obj=6 GO >ZK< 
TO 17676 

17136 IF verï= u LIRE" AND obj*="HESS 
' THE» PRINT'Ranger la bouillotte d 
ans":PRINT"la chambre de la belle-a 
ere.":SÛTO 1767» 

17146 IF wrt»"P«EN" AND □bj$="BOIS 
' AND boi=l AND pKh*= u ' THEN PRINT 
"D'accord. ":boi=6:pach$="Bois":SQT0 
17616 
17156 PRINT "Impossible !":GOTO 1767 



2,8: INK 3,26 

1B618 CLS #1:CLS #2 >KL< 

18626 LOCATE #l,16,l:PRINTIl,"BUAND >RM< 
ERIE" 

10621 FOR x=156 TO 256 BTEP 2: HOVE >PN< 
x,8:DRAH x,12Ô,3:NEXT x 
1B622 HOVE 150,Ô:DRAU 256,6, 2:DRAW >CP< 
258,128,2:DRAW 156,12Ô,2:DRAW 156,8 
,2:M0VE 156,18ô:DRAM 256,166,2 
18823 HOVE 155,U5:DRAN 165,115,8:11 >FQ< 
OVE 155,106:DRAU 178,186, 6:FQR x=23 
TO 246 STEP 2:MQVE x,165:DRAW x,l 

5, 8: NEXT x 
19624 FOR i=l TO 1B8 STEP 6:0RIGIN >XR< 

5e:M0VE C0Sli)*28,SIN(i)*26:0RA 
U C0SU)*28,5IN(i)*-28,2:N£XT i:ORI 
6IN 6,6 

19629 CLS «2 >HX< 

1B638 PRINT#2,"Haut":FRÎNTi2 >PN< 
1B648 PRINT#2, "Une machine a":PRINT >HP< 
K, "laver" 

16656 GOSUB 36 >BQ< 

1B655 IF ref=l THEN CLS:PRINT"Tu as >TW< 

oublie de fermer le réfrigérateur, 
■:PRINT"tu es privée de bal.": GOTO 



1B666 '« BUANDERIE » >HK< 

18685 BORDER 2: INK 6,2: INK 1,17:INK >PQ< 



]SUB 866 >Kfi< 

1G886 IF act*="GAUCHE" OR actî="DRO >LU< 

1TE" OR act*="BA5" GOTO 18136 

) IF actï=*HAUT" GOTO 13668 >NV< 
3 GOSUB 226 >AL< 

18118 IF esp=Ô OR ver=6 OR obj=8 GO >ZrK 

TO 18666 

18128 IF ver$="LAVE' AND obj$="LING >XN< 

■ AND poch*= a Linge sale" THEN PRINT 
"D'accord. ":pochï="":GOSUB 168:G0ÎC 

18629 
1B136 PRINT" Impossible !";GÛTQ 1886 >XP< 
6 

19666 '** CAVE «2 *♦ >BL< 

19665 BORDER 25: INK 8,25:1NK 1,16:1 >XR< 
NK 2, 1 : INk! 3,2 

19816 CLS ttUCLS #2 >LM< 

19626 LOCATE # L , 9, 1 : PRINT#1 . " CAVE N >NN< 
. 2" 

19636 PRINT#2, "Haut *:PRINT*2, "Droit >UP< 
e":PRINT#2 

19646 PfiINT#2,"Un message": IF aspbo >YQ< 
n=l THEN FRINT#2,"Un aspirateur u :GQ 
SUB 456 

19656 GOSUB 38 >CR< 

19655 IF cavl THEN CL5:PRINT"îu as >AX< 

oublie de -fermer le congélateur,": 
PRINT"tu es privée de bal.":GOTD 58 

m 

19866 GOSUB 888 >LT< 

19686 IF act$="GAUCHE" OR act*="BAS >GV< 

■ GOTO 19158 

19696 IF act$="HAUT" GOTO 14688 >QU< 



19166 IF ac»= "DROITE" GOTO 26668 >QM< 

19118 GDSUB 228 >CN< 

19126 IF esp=6 DR ver=8 DR obj=6 GO >CP< 

TO 19666 

19136 IF verï="LIRE" AND obj*="HESS >HGK 

■ THEN PRINT'laver le linge sale.": 

GOTO 19868 

19146 IF ver$="PREN" AND objS="A3PI >CR< 

" AND poch*="" THEN PRINT"D'aceord. 

: aspbon=6: poch$=" Asp i rateur " : GOTO 
19818 

19156 PRINT" Impossible !":GOTD 1966 >BT< 
8 

26686 '** CAVE #3 « ; 

26685 BORDER hINK 6,1:INK 2.26;INK >GH< 

3,6 

26818 CLS tlsELS #2 >CD< 

26828 LOCATE #1,9, 1:PRINT*1, "CAVE N >FE< 
. 3" 

26638 CLS #2 : 

26646 PRINT«2,"Gauche":PRINT#2 >RGÏ 

26658 IF clatOl THEN INK 1,6:PRINT >AH< 
#2, U I1 fait noir.":60T0 26688 
26651 INK 1,16 1 

26852 FOR y=6 TO 186 STEP 2:M0VE 16 >CK( 
0,y:DRAW 366,y,2:NEXT y 
26653 HOVE 186,8:DRAU 366,6,3:DRAW >CL< 
366,B8,3:DRAW 180,8ô,3iDRAW 160,6,3 



26654 HOVE 186, 85: DRAW 368,85,3:DRA 
H 368,168,3:DRAW 166,10e,3:DRAW 168 
,85,3 

26855 FOR x=U7 TD 136 STEP 4: PLOT 
x,92,3:NEXT x 

20666 PftlNTK/Un congélateur" 
28076 IF con=l AND via=l THEN PRIMT 
12, "De la viande" 
26086 GOSUB 36 
28096 GOSUB 800 

28110 IF act*="DROITE" OR act*="BAS 
' OR act*="HAUT" KÏÏQ 20226 
26120 IF act*= "GAUCHE" SOTO 19000 
26130 GOSUB 228 

20140 IF esp=6 DR ver=6 OR ohj=6 GO 
TO 26090 

20156 IF ver*="ALLU" AND obj$="LAflP 
' ANQ dam=2 THEN PRINT"D'accord.": 
claffl=l:GOTQ 26036 

26166 IF ver$="ALLU" AND ob]i= n LAflP 
" AND clam=l THEN PfiINT'Elle est de 
ja allumée.": GOTO 28890 
20170 IF ver*="ALLU" AND obj$="LAMP 
' AND clam=0 SOTO 26220 
28180 IF clamOl GOTO 26226 
28196 IF ver$="OUVR" AND ob]$="CÛNG 
" AND con=8 THEN PRINT" Il y a de la 
viande a l'intérieur. ":con=I:GOTQ 



. 



>IK{ 



■m. 

:fe: 



m 



26266 IF vert="OUVR" AND obj^^CONG >KE< 



" AND can=l THEN PRINT"U est déjà 

ouvert. ":GOTQ 20096 

20210 IF verl="PREN" AND obj$="VIAN > 

" AND con=l AND via=l THEN PRIHT"D' 

accord. u :via=0!pKh*=*Viande":GOTO 

20639 

20214 IF ver$="FERM" AND ob]$="CQNG > 
' AND con=0 THEN PRINT"I1 est déjà 
ferne,":GQTQ 20690 

20215 IF ver*="FERM*' AND obj$="CDN6 > 
" AND con=l THEN PRINTTaa:ord.":c 
on=0:GQTu 20090 

20226 PRINT"I«pûS5ible !":GOTO 2069 > 


21000 '*» CAVE #4 ** 
21005 BORDER 2:1NK 6,2: INK 1,16:INK : 
2,26: INK 3,9 
21610 CLS:CLS #1:CLS #2 
21620 LDCATE *1»9, lsPRINTItl, "CAVE N 
. 4" 
21025 GQSUB 30 

21630 MOVE 202,6:DRAW 240,0,3:KQVE 
260,2:DRAW 24Ô,2,3:M0VE 200,4:DRAH 
240,4,3 

21631 HOVE 188,6:DRAH 240,6,3:rtOV£ 
18B,8:DRAU 246,8,3 

21032 HOVE 200,16:DRAW 240,10,3:HOV ; 
E 200,12:DRAW 240,12,3:MOVE 262,14: 
DRAW 240,14,3 

21640 PRINT"îon pied roule sur une 
bouteille':PRINT"et tu te casses un 

bras.":PRINT"Tu ne pourras pas ail 
er au bal ce soir.":G0TQ 56066 
30006 '«* DATAS VOCABULAIRE ** 
30010 DATA LIRE,OUVR,PREN,FAIR,ACCR ) 
, RANG, PASS,POSE, LAVE, ALLU, FERM, GAUC 
,DROI,BAS,HAU'ï 

30026 DATA BIBL,PANT,MESS,COFF,CLE, ! 
ASPI,LAMP,ARMQ,DRAP,SERV,LIT,LING,V 
IAN,BOIS,REFR,HÎNG,TABL,BÛUI,PDRT,C 
HAI,CANA,LIVR,CHE!1, FEU, GAUC, I 
S, HAUT 

40000 MODE 2:W1ND0W #0,1,80,1,25:1)0 ) 
RDER 0:!NK 0,0:PAPER 6:INK 1,6:PEN 
1 

40610 PRINT:PRINT:PRINT" Tu es 
Cendrillon et tu veux aller danser. 

Tu n'auras l'autorisation d'y a 
lier que lorsque tu auras termine t 
out ton travail." 

40026 PRINTiPRINTiPRINT" Tu sau > 
ras ce que tu dois faire en lisant 
les messages dissémines dans la n 
aison. ' 

40630 PRINT:PRINT:PRINT" En out > 
re, tu dois aller voir ta belle-ser 
e dans le jardin au nains une foist 
outes les heures, sous peine d être 

privée de bal. 



40035 PRINT:PRINT:PRINT;PRINT" >VN< 
Tu peux te déplacer en indiquant se 
ulement : gauche, droite, haut et b 
as." 

40040 PRINT:PRINT:PRINT" Par co >KJ< 
ntre. tes autres actions doivent se 
composer de deux mots : un verbe a 
l'infinitif et le nom auquel il s' 
applique." 

40650 PRINÏ:PRINT:FRINT:PRINT:PRINT >EK< 
TAB(28) "Presse ENTER pour jouer.. 



>KG< 


46660 bp=0 


>ZL< 




46500 IF INKEY$<>"" GOTO 40500 


>AK< 


M©< 


46510 FOR t=l TD 0.5 STEP -0.1 


>UL< 


>RJ< 


46511 bp=bp+l 


;GM< 




40512 WHILE SQ(i)>127:WEND 


>EN< 


XC< 


40513 IF bp=l THEN BORDER 4:11* 6,4 >TP< 


>HF< 


:INK 1,26 






40514 IF bp=2 THEN BORDER 25:INK 0, 


•VCK 


>XL< 


25:1* 1,0 




>X6< 


40515 IF bp=3 THEN BORDER 26: M 0, 
26:INK 1,6 


>FR< 




46516 IF bp=4 THEN BORDER 16s M 6, 


>CT< 


>DH< 


I61INJC 1,3 






40517 IF bp=5 THEN BORDER 14:INK 0, 


rU< 


>uj< 


14:INK 1,1 






40520 RESTORE 66660 


>LM< 




40530 FOR i=l TO 114 


>PN< 


>YH< 


46540 READ so:so=so*t:READ d:d=d*12 >LP< 




:READ 5ob:sob=5ob*t 






46550 SOUND 4,so,d,15,2:S0UND l,so/ 


>m< 




2,d,15,2:SQUNQ2,sûb,d,13,l 




>VTX 


40560 IF INKEY$=CHRÏI13! THEN i=U4 >AR< 


HE< 


it=0.5:brk=l 






40570 NEXT i,t 


M'. 




46580 IF brfc=0 GOTO 46668 


;-hu< 


HF' 


46590 FOR 1=1 TD 8:CALL W1000:NEXT 
i:RETURN 


>nV£ 




50000 ■** FIN DE PARTIE ** 


>YF< 




50605 AFTER 1,3 60SUB 126 


>HL< 




56007 GOSUB 63066 


>(•« 


Ht< 


50610 LCCATE l,6:PRINT"Presse ENTER >EB< 




, si tu veux rejouer..."; 






50020 IF INKEYtO"" GOTO 50020 


>m< 


>TF< 


56630 IF INKEY$OCHRï(13) GOTO 5663 >AJ< 




56640 CLEARîFOR i=l TO 8:CALL &A606 >YK< 




:NEXT i:GOTQ 1 






66066 '♦* MUSIQUE PRESENTATION ** 


>YS< 



60610 DATA 284,2,568,190,2,568,213, J 

2,563,190,1,568,284,2,568,284,1,568 

,190,2,568,213,2,568,190,2,568 

60026 DATA 239,2,478,190,2,478,213, ) 

2,478,190,1,478,239,2,478,239,1,478 

,196,2,478,213,2,478,190,2,478 

60036 DATA 319,2,638,213,2,636,239, ) 

2,638,213,1,638,319,2,638,319,1,638 

,213,2,638,239,2,638,213,2,638 



66040 DATA 319,2,638,213,2,638,239, >RL< 

2,638,213,1,638,319,2,638,319,1,638 

,213,2,638,239,2,638,213,2,638 

66050 DATA 264, 2, 56B, 190,2,568,213, >QJ1< 

2,568,196,1,568,284,2,566,284,1,568 

,190,2,568,213,2,568,190,2,566 

60060 DATA 239,2,478,190,2,478,213, >RN< 

2,478,190,1,478,239,2,476,239,1,478 

,190,2,478,213,2,478,196,2,478 

60670 DATA 319,2,638,213,2,638,239, >VP< 

2,638,213,1,638,319,2,636,319,1,638 

,213,2,638,239,2,638,213,2,636 

66680 DATA 319,2,638,213,2,638,239, >«Q< 

2,638,213,1,638,319,2,638,319,1,638 

,213,2,638,239,2,638,213,2,638. 

60096 DATA 119,2,568,127,2,568,142, >BR< 

2,568,159,1,568,142,6,568 

60100 DATA 159,1,568,142,1,568,159, 

1,568,119,2,478,127,2,478,142,2,478 

,159,1,478,142,6,476 

60116 DATA 159,1,476,142,1,478,159, 

1,478, 119,2,638, 127,2, 63B, 142, 2,638 

,159,1,638,213,8,636 

60126 DATA 119,2,568,127,2,568,142, 

2,568,159,1,566,142,6,568 

66136 DATA 159,1,568,142,1,568,159, 

1,566,119,2,478,127,2,478,142,2,478 

,159,1,478,142,6,478 

66140 DATA 159,1,478,142,1,478,159, 

1,478,119,2,638,127,2,638,142,2,638 

,159,1,636,213,8,638 

61600 « MUSIQUE GAGNE ** 

61610 DATA 239,2,213,4,426,2,426,2, 

358,2,284,2,239,2,284,2,239,2,284,4 



>ZH< 



, >QJ; 



/■vk; 



MU 



, >l*K 



62006 '** MUSIQUE PERDU ** >NJ< 
62010 DATA 478,2,358,2,319,2,284,4, >LK< 
284,4,264,2,319,2,284,2,268,2,284,4 

63000 ** MUSIQUE FIN DE PARTIE « >DK< 

63010 IF fp-e THEN RESTORE 62000 EL >QL< 

SE REBTQRE 61000 

63620 FOR i=l TQ 10 >FM 

63630 READ so:READ d:d=d*coef >NN< 

63040 SOUND l,so,d,15,l:S0UND 2,so/ >RP< 

3,d,13,2 

63050 NEXT i 

63066 RETURN 

65006 MEMORY &9FFF : RESTORE 65096 

65616 oct=&9FFF 

65626 oct=oct+l 

65036 READ pok$ 

65640 pok=VALCfc"+pok$) 

65050 POKE oct,pok 

65060 IF pok$=°c9" GOTD 65086 

65070 GOTO 65020 

650S0 RETURN 



65090 DATA 97,21,01 
20,fa,c9 



>CQ< 

>m< 

?KM< 
;XN< 
>RP< 

mi 
>nr< 

HCT< 

>AU< 
>W< 
>DW< 
,c0,cb,3e,23,bc, >UX< 



SQUELETTE 



Pour éviter de tomber sur un os, il vaut 
mieux le connaître sur le bout des pha- 
langettes. Si ce programme ne vous 
fait (mur) pas vous tenir les côtes, il 
vous donnera néanmoins un sourire 
radius. Je vous le parie (étal) : à la fin 
du questionnaire vous serez occis, à 
l'hôpital. 

O Temporal, ô mores, les jeunes nB 
naissent plus l'anatomie, c'est conster- 
num, s'exclame le père Honnet. Crâ- 
nes, ils préfèrent suivre des yeux la na 
verte en orbite. 

Bah, comme le disait la mère de Zorro 
métacarpe noire, il va faire froid ce soir. 
Le mode d'emploi est inclus dans le pro 
gramme. (Extraits de Tlltiaque et l'O 
dyssée d'Os Mère). 




.0 'ttttttt SQUELETTE M**## 


>RBï 


20 cls 


>CC< 


30 GOSUB 1426 


>RD< 


40 GOSUB 2599 


>££< 


59 DM aî<35> 


,'HF; 


60 FOR i=l T0 35 


;BG- 


70 REftD a«U) 


>YH< 


80 NEXT i 


>PJ< 


90 SYMBOL AFTER 129 


>XK< 


m SYHBOL 130,63,255,255,255,255,: 


m< 


55,255,255 




lie SYMBOL 131,6,0.1.3,7,7,15,15 


>uc. 


126 SYMBOL 132,126, 224, 240,248.246 


>UK 


24B, 252,252 




130 SYHBOL 133,15,15,15,15,7,3,1,0 


>HE 


140 SYMBOL 134,255,255,255,249,241. 


>YF< 


241,249,255 




150 SYMBOL 135.252,252,252,252,230, 


>Y6< 


231,163,190 




160 SYMBOL 136,127, 62, 63,63,30, 31, 7 >ÏH< 

.17 

170 SYMBOL 137, 69, 28, 24B, 248,166,80 >BJ< 


,248,248 




180 SVMB0L 138,12,31,14,31,14,31,1' 

,31 

190 SYMBOL 139,0,0,9.0,0,0,0,63 


>BK< 


>LL< 


200 SYMBOL 140,0,0,0,0,0,0,0,240 


>BC< 


210 SYMBOL 141,0,0,0,0,0,0,1,31 


m< 


220 SYMBOL 142,0,0,0,0,0,0,255,255 


>WE' 


230 SYMBOL 143,0,0,0,0,6,0,0,224 


i'RF- 



240 SYMBOL 144,255,7,144,169,64,112 >VBi 

,31,128 

250 SYMBOL 145,0.1,0,3,3,15,14,14 >m 

260 SYMBOL 146,255,224,1,128,198,22 >HJ< 

6,97,13 

270 SYMBOL 147,255,255,14,255.14,14 >XK< 

,255,14 

2B0 SYMBOL 148,254,224,1,255,9,1,25 >QL< 

5,0 

290 SYMBOL 149,1,24,18,39,103,231,1 >JM< 

47,51 

300 SYMBOL 150,240,0,9,12,156,248,2 >TD< 

40,248 

310 SYMBOL 151,12,12,12,12,12,12,12 >EE< 

,12 

320 SYMBOL 152,4,2,27,9,4,6,3,1 >GF< 

339 SYMBOL 153,224,63,0,126,255,9,0 >RG< 
,255 

340 SYMBOL 154,14,255,14,14,255,14, >HH< 
14,255 

350 SYMBOL 155,0,255,0.0,255,0,0,25 >XJ< 

5 

360 SYMBOL 156,96,196,13,25,232,6,1 >JK< 

2,248 

370 SYMBOL 157,248,56,24,24,24,24,2 >KL< 

4,24 

369 SYMBOL 158,12,7,1,0,4,7,0,9 >CM< 

390 SYMBOL 159,0,0,255,0,0,255,9,9 >NN< 

400 SYMBOL 160,28,24,24,24,24,24,24 >QE< 



410 SYMBOL 161.14,14,255,30,63,235, >YF< 
119,206 

SYMBOL 162,0,9,255,0,0,255,128, >HB< 

439 SYMBOL 163,3,14,252,0,2,254,0,0 >LH< 
"40 SYMBOL 164.24.24,24,24,24,24,24 >PJ< 
24 

450 SYHBOL 165, 4B, 46,48, 48,112, 112, >JK< 
248,216 

SYMBOL 166,3,0,0,0,0,1,0,0 >DL< 
479 SYMBOL 167,255,3,6,4,12,249,3,6 >UM< 
469 SYMBOL 168,142,39,63, 111,296,14 >EN< 
2,31,14 

490 SYMBOL 169,255,24,8,140,199,99, >»< 
48,24 

500 SYMBOL 170,252,0,9,0,0,192,120, >CF< 


510 SYMBOL 171,28,28,60,62,127,254, >TS< 
126,62 

520 SYMBOL 172,1,0,0,1,1,0,0,1 >XH< 
530 SYMBOL 173,216,24,128,136,156,1 >YJ< 
46,204,204 

540 SYMBOL 174,4,28,9.0,0,9,126,255 >WK< 
550 SYMBOL 175,31,14,31,14,31,14,31 >FL< 
,14 

560 SYMBOL 176,12,7,9,0,30,63,63,12 >JIK 
7 

579 SYMBOL 177,0,9,9,0,9,9,192,240 >6N< 

580 SYMBOL 178.24,0,19,55,51.59,27. >QP< 
27 

590 SYMBOL 179,9,9,9,128,9,9,9,0 >ZQ< 

6Û9 SYMBOL 1B9, 1,1,1, 1,1,1, 1,1 >ZG< 

619 SYMBOL 181,140,152,152,152,152, >UHX 
152,152,152 

629 SYMBOL 182,1,3,7,7,7,7,7,3 >QJ< 

630 SYMBOL 1SÎ, 255.255,255,255,255, >JK< 
255,254,254 

649 SYMBOL 134.143,255,245,255,245, >VL< 
255,53.63 

650 SYHBOL 185,255,255,255,255.255, >GM< 
255,143,143 

660 SYHBOL 186,248,252,254,254,254, >LN< 

254,252,248 

670 SYHBOL 187,27,26,14,7,2,2,2,2 >CP< 

680 SYMBOL 188,0,0,0,128,128,128,12 >FS< 

8,126 

690 SYMBOL 189,1,1,1,1,1,1,3,1 >«< 

700 SYMBOL 190,152.152,184,176,176, >EH< 

176,176,56 

710 SYMBOL 191,3,1,0,0,0,0,0,1 >ftJ< 

729 SYMBOL 192,255,131,57,125,253,1 >HK< 
25,57,27 

730 SYMBOL 193,31,142,196,228,255,2 >YL< 
55,239,205 

740 SYMBOL 194,31,60,121,251,243,24 >KM< 

7,179,155 

750 SYMBOL 195,248,48,128,224,224,2 >(ti< 

28,254,62 

760 SYMBOL 196,2,2,6,14,14,15,15,15 >*>< 

770 SYMBOL 197,128,128,128,0,0,0,12 >QQ< 



13 



8,192 

786 SYMBOL 198,0,:, 0,2, 0,2,2, 2 >NR< 

790 SYMBOL 199, 119,1, 168,0,168,0,16 >NT< 

8,169 

890 SYMBOL 200,3,131,195,67,67,67,1 >FJ< 

95,129 

810 SYMBOL 201,251,225,128,6,0,0,12 >NK< 

B, 128 

B20 SYMBOL 202,141,248,240, 96, 0,0,0 >ZL< 

830 SYMBOL 203,136,252,120,48,0,0,0 >UM< 

i« 

846 SYI1BOL 204,46,14,62,60,125,125, >DN< 

113,112 

650 SYHBOL 205,128,0,64,0,64,0,64,6 >PP< 

4 

860 SYMBOL 206,2,0,0,0,0,0,0,0 >AQ< 

870 SYMBOL 207,168,168,32,0,0,0,0,0 >ZR< 

880 SYMBOL 208,128,128,128,128,128, >HT< 

128,128,128 

890 SYMBOL 209,112,112,112,112,48,4 >AU< 

8,48,48 

900 SYMBOL 210,21,21,21,4,0,0,0,0 >HfcX 

910 SYMBOL 211,64,0,0,0,0,0,0,0 >CL< 

920 SYMBOL 212,1,1,1,1,1,1,0,0 >YH< 

930 SYMBOL 213,128,128,128,128,128, >BN< 

128,192,192 

940 SYMBOL 214,48,48,48,48,48,48,48 >TP< 

,46 

950 SYMBOL 215,192,192,192,96,96,98 >T9< 

,54,188 

960 SYMBOL 216,0,0,0,0,0,0,1,3 >EFK 

970 SYMBOL 217,48,48,48,112,240,248 >TÎ< 

,252,254 

980 SYMBOL 218,128,193,67,30,62,30, >PU< 

12,13 

990 SYMBOL 219,0,128,0,0,128,128,12 >NV< 

8,128 

1000 SYMBOL 220,1,0,0,1,3,3,1,0 >RB< 

1010 SYMBOL 221,252,200,0,156,156,2 >DC< 

48,240,112 

1620 SYMBOL 222,13,13,13,13,13,13,1 >ND< 

3,13 

1030 SYMBOL 223,108,96.96,96,96,96, >GE< 

96,96 

1040 SYMBQL 224,96.96,96,96.96,96,9 >NF< 

6,96 

1050 SYHBOL 225,13,13,13,13,13,12.3 >RG< 

0,30 

1060 SYMBOL 226,96,96,240,248.216,2 >EH< 

16,0,216 

1070 SYMBOL 227,3,3,10,24,56,108,64 >ZJ< 

,192 

SYMBOL 228,0,é,y,0,0,0,0,l >ftKX 

SYMBOL 229,30,12,4,33,31,60,15 >WL< 

6,222 

1100 SYMBOL 230,0,0,128,128,200,248 >FC< 

,224,0 

1110 SYMBOL 231,192,128,0,0,0,0,0,0 >vTX 

1120 SYMBOL 232,0,212,0,170,0,170,0 >ME< 



,170 

1130 SYMBOL 233,0,170,0,0,0,0,0,0 >DF< 

1140 SYMBOL 234,28,64,85,192,149,0, >L6< 

149,149 

1150 n=0ic=0:d=8 >EH< 

1160 p=0 >YJ< 

1170 IF n=10 THEN GQTQ 2260 >VK< 

11B0 MODE l:BORDER 0IPAPER 0:P£H 1: >ML< 

INK0,0:INK 1,26 

1190 LOCATE 1B,1:PRINT CHR$(131)+CH >QM< 

R*(130)+CHR$(132) 

1200 LOCATE 18,2:PRINT CHR*(133)+CH >TD< 

R$(134)+CHR$(135) 

1210 LOCATE 19,3:PRINT CHR*(136)+CH >XE< 

R$(137) 

1220 LOCATE 17,4;PfiI«T CHR*(139)+CH >MF< 

R$(140)+CHR*U38)+CHR$(141)+CHR*(14 

2)tCHR*(i43) 

1230 LOCATE 16,5:PRINT CHR$I145)+CH >KG< 

R*!146HCHR$(144)+CHR$(147)+CHR*(14 

8)+CHR$(149)+CHR*(150) 

1240 LOCATE 16,6:PRINT CHR$ll5i)+CH >SH< 

R» ( 152 ) +CHR* ( 153) +CHR* ( 154 ) +CHRÏ ( 15 

5)+CHR$(156)+CHR*<157) 

1250 LOCATE 16,7:PRINT Cffi$(160)+CH >NJ< 

R$(158!+CHR*(159)+CHR*(161)+CHR*(16 

2!+CHR*(163)+CHR*U64) 

1260 LOCATE 16,8:PRINT CHR*U65)+CH >EK< 

R* ( 1 66) +CHR* ( 167 ) +CHR* ( 168 ) CHR* ( 16 

9)+CHRt(170îtCHRÎll71! 

1276 LOCATE 15,9:FRINT CHR$(172)+CH >GL< 

Rt(173)+CHR$(128XHR1(174)+CHR${17 

5) +CHR$ ( 17fa} +CHR$ ( 177) +CHR* 1 1 78) +CH 

Rït 179) 

12B0 kî=CHRî(180]+CHR$(181)+CHRï(18 >IM< 

2)+CHRÎ(163)+CHR*(184)-»-CHR*(iB5)+CH 

R$1186)+CHR*(1B7)+CHR$(188) 

1290 LOCATE 15,10:PRINT CHR*(189)+C >KN< 

HRt(190)+CHRÎ(191)+CHR*(192)+Cmt(l 

93)+CHR$(194)+CHR*(195)+CHR*(196)+C 

HR$(197) 

1300 LOCATE 15,U:PRM CHRî(198)+C >W< 

HR* U99 ) +CHRÎ ( 200 ) +CHR* ! 20 1 ) +CHR* (2 

02)+CHRî(203)+CHR$(204)+CHR*(234)+C 

HRÎ(205> 

1310 LOCATE 15,12:PRINT CHfit(206)+C >AF< 

HR$ l 207 ) +GHR* ( 180 ) +CHR* (208) +CHRÎ ( 1 

28) +CHR* (128) +CHR* ( 209 ) +CHRÏ l 210 ) +C 

hr$î2iu 

1320 locate 17,13:print chr*(212)+c >hg< 

HR*(213)+CHR$(12aJ+CHR*(128)+CHR*(2 

14) 

1330 LOCATE 18,14:PRINT CHR*(215)+C >NH< 

HR*(12a>+CHR*(216)+ChfiS(2L7) 

1340 LOCATE 18,15:PRINT CHfi*(2iB)+C >JJ< 

HRÏ(219)tCHR*(220)+CHR*(221) 

1350 LGCATE 1B,16:PRINT CHR*(222)+C >PK< 

HR* (128) +CHRÎ l 1 28 ) +CHR* (223) 

1360 LOCATE 18,17:PRINT CHRt(222)+C >TL< 

HR*(12B)+CHR*(128)+CHR*(224) 



1370 LOCATE 18,18:PRINT CHR$<225)+C >YM< 

HR* ( 128) +CHR* ( 128) +CHRK224) 

1380 LOCATE 17,I9:PRINT CHR4(228)+C >HN< 

m* ( 229 ) +CHR* ( 230 ) +CHR$ ( 128 ! +CHR$ ( 2 

26) 

1390 LOCATE 17,20:PRINT CHR»(227)+C >VP< 

HR*(231)+CHR*ll28)tCHR*(12B)+CHR*î2 

32) 

1400 LOCATE 21,21:PRINT CHRÏI233) >HF< 

1410 GOSUB 1720 >Œ< 

1420 CLS >mi 

1430 MODE 1: BORDER lB;PAPEfi 0:PEN 1 >VJ< 

ilNK 0,0: INK 1,26:INK 2,18:1* 3,24 

1440 FOR 1=1 TO 150 STEP 10 >LK< 

1450 d=l >TL< 

1460 FOR d=l TO d+3 >YM< 

1470 SOUND l,d,4 >DN< 

1480 MOvE b,d:DRAW d,400-d,2:DRAW 6 >JP< 

40-d,400-d:DRAW 640-rf,d:DRAW d,d 

1490 NEXT d >vfl< 

1500 NEXT 1 >VG< 

1510 a$="Paul SERNA" >JH< 

1520 FOR i=l TO LEN(at) >KJ! 

1530 b*=MID$ia$,i,l) >YK< 

1540 PEN 3:L0CATE 15+i, U:PRINT b* >KL< 



>UM\ 



1550 FOR t=l TO 100:NEXT t 

1560 NEXT i 

1570 c*= "présente" 

1580 FOR i=l TO LEN(cî) 

1590 dï=MIDÎ(c*,i,l) 

1600 FOR i=29 TQ lfi+i STEP -1 

1610 LOCATE j,13:PRINT d* 

1620 LOCATE ;+l,13:PRINT " " 

1630 NEXT j 

1640 NEXT i 

1650 PEN 1: LOCATE 15,15:PRINT "LE S >VN< 

QUELETTE " 

1Ô60 FDR t=l TO 2000:NEXT t >ZP< 

1670 RETURN >WQ< 

1680 DATA pariétal, occipital, tempar >*fi< 
al, vertèbre cervicale, tête de l'hum 

eras, cotes, vertèbre dorsale, cote, eu 
bitus 

1690 DATA radius, coccyx, carpe, metac >ET< 

arpe, phalanges, ischion, fémur, condyl 

e fémoral, malléole interne, calcaneu 

m, métatarse, frontal , orb i te 

Î700 DATA maxillaire supérieur, maxi >EJ< 

llaire inférieur, clavicule, sternum, 

huaerus, vertèbre lombaire, os iliagu 

e,sacrum,tete du feœur, grand trocha 

nter, rotule 

1710 DATA tibia,perone >MK< 

1720 RANDOMIZE TIME >PL<. 

1730 v=INT(RND*35)+l >FM< 

1740 PEN 2:L0CATE 5,3:PRINT LENlaSf >UN< 

v)):LQCATE 3,4:PRINT "LETTRES":PEN 

1 

1750 IF v=l THEN MOVE 256, 392: DRAW >NF'< 






1768 IF v=2 THEN MOVE 256,384:DRAW >KQ< 

290,384,2 

1778 IF v=3 THEN MOVE 256,376:DRAN >XR< 

298,384,2 

1780 IF v=4 THEN MOVE 256,346:DRAH >BT< 

308,346,2 

1790 IF v=5 THEN HOVE 224,326:DRAH >EU< 

256,326,2 

1868 IF v=6 THEN MOVE 224,312iDRM >QK< 

278,312,2 

IBIS IF v=7 THEN MOVE 224,272:DRAW >NL< 

360,272,2 

1S2Ô IF v=8 THEN MOVE 224,270:DRAW >WM< 

282,270,2 

1830 IF v=9 THEN MOVE 224,252:DRAM >WN< 

244,252,2 

1840 IF v=I8 THEK MOVE 224,252:DRAW >VP< 

248,252,2 
1850 IF v=ll THEN MOVE 224,244:DRAW >HQ< 

300,244,2 
1860 IF v=12 THEN MOVE 224,232! DRAW >LR< 

240,232,2 
1870 IF v=13 THEN MOVE 224,226:DRAW >VT< 

248,226,2 
1886 IF v=14 THEN MOVE 224,21G:DRAW >ZU< 

240,21B,2 
1890 IF v=15 THEN MOVE 224, 192: DRAW >m 

288,192,2:DRAW 292,236,2 
1900 IF v=16 THEN MOVE 224,19B:DRAW >TL< 

266,198,2 
1910 IF v=17 THEN MOVE 224, 176: DRAW >GM< 

280,176,2 
1920 IF v=18 THEN MOVE 224,100:DRAW >HN< 

282, 100,2 

1930 IF ¥=19 THEN MDVE 224,96: DRAW >KF< 
290,96,2 

3 IF v=26 THEN MOVE 224,88:DRAW >DQ< 
262,88,2 
1950 IF v=21 THEN HOVE 304,386:DRAW >m< 

336,386,2 
i960 IF v=22 THEN MOVE 312,374:DRAW >HT< 

336,374,2 
1970 IF v=23 THEN MOVE 306,362:BRAW >SU< 

336,362,2 
1980 IF v=24 THEN MOVE 368,354:DRAW >Wi 

336,354,2 
1990 IF v=25 THEN MOVE 328,338:DF;AW H*K 

360,338,2 
2000 IF v=26 THEN MOVE 366,32à:DRAW >X< 

368,326,2 
2010 IF v=27 THEN MOVE 344,364:DRAW >LD< 

360,304,2 
2020 IF v=28 THEN MOVE 300,264:DRAW >QE< 

360,264,2 
2030 IF v=29 THEN MOVE 312,252iDRAW >PF< 

360,252,2 
2040 IF v=30 THEN MOVE 300,24B:DRAW >PG< 

360,246,2 
2050 IF v=31 THEN MOVE 320,246:DRAW >PH: 

360,246,2 



2660 IF v=32 THEN MOVE 332, 240: DRAM >GJ< 

366,240,2 
2076 IF v=33 THEN MOVE 224,174:DRAW >Mi 

272,174,2 
2680 IF v=34 THEN MOVE 324,128! DRAW >YL< 

360, 128,2 
2696 IF v=35 THEN MOVE 224,12B:DRAW >GM( 

286,128,2 
2100 WINDOW #1,1, 40,1, 21:WIND0W #2, >ÏD< 
1,46,22,25 

2116 rt=n+i >ZE< 

2120 CLS #2:INPUT #2, "Comment s'app >ZF< 
elle cet 05";bl 

2130 c*=LOWER$(b$) >JG< 

2140 IF c*=aî(v) THEN GOTO 2166 >EH< 
2150 IF c*Oa*(v) THEN GOTO 2200 >Rj< 
2160 d=d+liCLS #2:PEN #2,3:PRINT #2 >€K< 
," C'est très bien.":PEN 
#2,1 

2176 FOR t=l TO 2800:NEXT t >HL< 
2186 CLS #2 >JM< 

2190 GOTO 1170 >FN< 

2206 CLS #2:PEN #2,3:PRINT #2," >GE< 

NON !!!... ,":PEN #2,1 
2210 p=p+l >EF< 

2220 c=c+l >CS< 

2230 FOR t=l TO 2666:NEXT t >TH< 
2240 IF p=2 THEN GOTO 2560 >YJ< 
2250 GOTO 2120 >YK< 

2260 CLSîLOCATE 16,3:PRINT "RESULTA >ÏL< 
T u 

2270 PEN 2:L0CATE 16,9:PRINT d; >LM< 
2280 IF d<2 THEN PRINT " Réponse ex >YN< 
acte" 

2290 IF d>=2 THEN PRINT " Réponses >YP< 
exactes" 

2300 PEN 3:L0CATE 16,11:PRINT INTIc >ÏF< 
/2); 

2310 IF INT(c/2)<2 THEN PRINT " Rep >DG< 
on se tausse" 

2320 IF INT(c/2)>=2 THEN PRINT " Re >DH< 
ponses fausses" 

2330 PEN 1 >TJ< 

2340 GOSUB 278Ô >NK< 

2350 IF INKEY(47)=0 THEN GOTO 2360 >FL( 
2366 CLS )RM< 

2370 PEN 2:LOCATE 9,5:PRINT "VOULEZ >AN< 
-VOUS REJOUER" 
2386 PEN 3:INK 3,6:LÛCATE 5,16:PRIN >JP< 

T " * Si OUI > touche 0" 

2390 LOCATE 3,12:PRINT " * Si NON - >YQ< 

— > touche N" 

2490 tou*=INKEY$ >XB< 

2416 IF tDU*="" THEN GDTD 2406 >FH< 

2420 IF tou$="o" OR touî="0" THEN G >DJ< 

QTO 1150 

2430 IF tou»="n" OR tou$="N" THEN G >FK< 

ÛTD 2446 

2446 MODE 6:PAPER 6:PEN 1:INK 6,0:1 >DL< 

NK 1,26:INK 2,18:INK 3, 24: INK 4,15: 



INK 5,11 

2456 PEN 5:L0CATE 6,5:PRINT "C'etai ; 

t" 

2466 PEN 4 >AN< 

2476 st$="LE SQUELETTE" >CP< 

24G6 FOR nufli=l TO LENfstS) >JQ< 

2490 5quï=MIDt(5t*,num,l) >«R< 

2566 LOCATE 3+num,12:PRINT squ* >TH<; 

2510 FOR t=l TO 50:NEXT t >TJ< 

2520 NEXT num >BK< 

2530 FOR H TO 2090: NEXT t >ft< 

2540 MODE iiPAPLR 0rPFJt iilNK 6,6:1 >LM< 

NK 1,26:INK 2,18: INK 3,24 

2550 END >FN< 

2566 CLS #2:PRINT #2, "Cet os s'appe >XP< 

lie: "j:PEN #2,3:PRINT #2,UPPER*ia$ 

(vl):PEN#2,l 

2570 FOR t=l TO 2060:NEXT t >AQ< 

2580 GOTO 1160 >HR< 

2590 MODE 1:PAPER 0:PEN 1:1* 6,0:1 ! 

NK l.llilNK 2,18: INK 3,15 

2666 CLS >NJ< 

2610 PEN 2:LGCATE 14,3:PRINT "INDIC >KK< 

ATIONS' 

2620 PEN ULQCATE 5,7:PRINT "Un " ! 

2630 PEN 3:L0CATE 8,7:PRINT "SQUELE : 

TTE" 

2640 PEN h LOCATE 18,7:PRINT 'va ap ) 

paraître. Un trait" 

2656 PEN 2:L0CATE 1,8:PRINT "VERT" ; 

2666 PEN 1:LQCATE 6,8:PRINT "indiqu ) 

era Tas a découvrir," 

2676 LOCATE 5,10:PRINT "Dix questio > 

ns seront posées. " 

2686 LOCATE 5,12:PRINT "Si deux rep ï 

onses fausses sont " 

2696 LOCATE 1,13: PRINT "données pou > 

r le même os, alors la solu-" 

2766 LOCATE 1,14:PRINT "tion sera i > 

ournie.II faudra bien la me-" 

2710 LOCATE 1-, 15: PRINT "moriser car > 

la neme question peut rêve-" 
2720 LOCATE 1,16:PRINT "nir plusieu ? 
rs fois." 

2730 PEN 3 >M 

2740 GOSUB 2780 >TP< 

2756 IF INKEY(47)=0 THEN 2760 >Zfl< 
2760 MODE 1: BORDER 6:PAP£R 0:INK 0, >CR< 
6:INK 1,26: INK 2, 18: INK 3,24 
2770 RETURN >YK 

2780 f *>"..,■( Barre Espace >...POUR >RU< 

CONTINUER.." 
2790 FOR num=l TO LENtfïi >HVi 
2B06 g$=MID$(f$,num,li >RL< 

2810 LOCATE num,24:PRINT qi >EM< 

2826 FOR t=l TO 50:NEXT t >XN< 
2830 NEXT num >FP< 

2840 kï=INKEYÎ ,-TQi. 

2B50 IF k$= u " THEN GOTO 2846 >KR< 
2S60 RETURN >YR 



UTILITAIRE 



SUPER DISC 



Super-Disc est un programme simple, 
rassemblant plusieurs instructions dis- 
ques telles que effacement de fichiers, 
échanges de noms, sous une forme plus 
pratique que les RSX d'origine. 
Le mode d'emploi est inclus dans le pro- 
gramme. 

N.B. : le symbole S s'obtient en tapant 
"CTRL" + "X" simultanément. 



u 



le REM «m***********.*****»**,* 
26 REM # » 



REM 
40 REM 
50 REM 
63 REM 
70 REM 
80 REM 

n REM 
m REM 
lia REM 
120 REM 
130 REM 
148 REM 
158 REM 
160 REM 
170 REM 
180 REM 
6 REM 



■ S U F E ft D 1 S C * ; iEï 
! * >ZF, 

* >AS< 

■ copyright KARCHER f. et* >DH< 

* >CJ< 

* >DK< 
MERLIER D. * >VE< 

* >YL\ 

* >ZD< 
HHHHHHHMHMHHt >WE< 



PRESENTATION 



280 REM **^******#*m***44***** ; 

21@ REM 

226 INK 6,0:PAPER 0:B0RDER 6:M0DE 1 : 

îOSlINK 1,15:INK 3,1:INK 2,26:SPEE 

D KEY 26, 1 

236 FOR i=399 T0 320 STEF -2:M0VE 1 ; 

,i:DRAU 640,I,3:NEXT:FÛR i=30 TQ 46 

STEP 2:PLDT 46,386, 1;DRAW 1,37a: NE 
XT 

246 FOR i=46 T0 76 STEP 2:M0VE i,3B ; 
0:DRAW i,376;NEXT 

256 FOR 1=38 TQ 46 STEP 2:MQVE i,37 ; 
6:DRAN i,368:NEXT:FQfl i=46 T0 60:MO 
VE i,360:DRAW i,350,i:NEXT:FÛR i=30 

T0 46:PL0T 40,356:DRAW i,36Ô:NEXT: 
FOR i=66 TQ 7Ô:PL0T 60,366:DRAN i,3 
56;NEXT 
266 FOR i=60 T0 70:PLOT 60,336;DRAH ? 




i,340;NEXT:FQR i=66 T0 78;MQVE 1.3 
50:DRAW i,346:NEXT:F0fi i=30 TQ 69:11 
0VE i,346:DRAN i,336:NEXT 
270 FUR i=340 TD 380 STEP 2:M0VE 10 )FK 
0,i:DRAW 110.i:MQVE 12y. i:I/RAW 130, 
i:NEXT:F0R i=106 T0 li6;PLÛT 110.33 
0;DRAW i,340:NEXT:F0R i=l28 TG 130: 
PLOT 120,336:DRAW i,340:NEXT:FOR i= 
110 T0 mtttm i,340:DRAW i,330:NE 
XT 

286 FOR i=330 TQ 386 STEP 2:M0VE le >¥L< 
0,i:DRAW 176,i:MDVE 226, i: DRAW 230. 
i-.mj£ 286, i: DRAW 296, i:NEXT:F0R i= 
176 TD 13ô:M0y£ i,380;DRAW i.370:MO 
VE i,360:DRAW i,356:NEXT 
290 FOR i=180 T0 198:HQVE i,378:Dfifi >Xft 
W i,366:PL0T ia0,380:DRAW i.370:PLO 
T 186, 358: DRAW i,366:NEXT:F0R i=226 
T0 256:M0UE i . 38Ô : DRAW i,370:MQVE 
i.340:DRAW i,330:NEXT:F0R i=230 T0 
240:HQVE i,360:DRAH i,350:NEXT 
m FOR 1=286 TO 300:ttWE i,3S0:DRh ,PD< 
W i,378:HQVE i.360:DRAU i,350:NEXT: 
FDR 1=366 TO 316:PL0T 366,350:DRAU 
i,336:NEXT:FDR i=296 TO 36Ô:PL0T 36 
0,33Ô:DRAW i.350:NEXT:Fûfi i=366 T0 
316:M0VE i, 376: DRAW i , 360: PLOT 360. 
380:DRAU i.376:PL0T 368, 358: DRAW j, 
360:NEXT 

310 FOR i=330 TD 386 STEP 2:M0VE 37 >HE< 
0,i:DRAW 380,Î!HDVE 430, i : DRAW 440. 
i:NEXT:F0R i=346 T0 370 STEP 2:M0VE 
390, i : DRAW 400,i:MOVE 540,i:DRAW 5 
5Ô,i:NEXT:F0R i=380 T0 398:M0vE i,3 
88:DRAW i.376:M0VE i, 346: DRAW Î.338 
:f4EXT 

326 FOR i=398 T0 460:F1_QT 396,380:D >LF< 
RAW i, 379: PLOT 396,330:DRAW i,340:N 
EXT:F0R i=470 T0 480:PLOT 486.386:0 
RAW i,376:PLDT 480,358:DRAW i,366:N 
EXT:F0f: i"480 TD 518: MOVE i,380;DRA 
H i,370:N£XT 

330 FOR i=470 T0 4B0:MOVE i,370:DRA >FG< 
W i,360:NEXTiFDR i=486 TD 566:M0VE 
1,366: DRAW i,350:NEXT:FQR 1=476 TQ 
588:M0VE i.34Ô:DRAW i,330:NEXT:FÛR 
i=566 T0 518:M0vE i,356:DRAW i.340: 



PLOT 566, 368: DRAW i, 350: FLOT 500,33 

0:DRAW i,346:NEXT 

340 FOR 1=550 TO 570:MOVE i,386:DRA ) 

W i,379:M0VE i. 346: DRAW i,330:NEXT: 

FOR i=540 TO 55ô:PL0T 556.380:DRAW 

i. 376: PLOT 556, 330: DRAW i,340:NEXT 

350 F'EN 2:LOCATE 19,9:PRINT n P ar"iPL ) 

OT 2S0,250.3:DRAW 340,250:DRAW 340. 

276:DRAW 280,276:DRAW 280.250 

360 LDCATE 1,14:PRINT" MERL1ER D > 

avid et KARCHER Yannick* 

376 PLOT 50,266, 1;DRAW 56, 166: DRAW > 

5S4,le6:DRAW 5B4,2Ô0:DRrW 50,206 

390 PLOT 46,216,1: DRAW 40,i56:DRAW > 

594,156:DRAW 594,21ô:DRAW 40,210 

396 PLÛT 56,266:DRAW 46,21S:PL0T 56 >AN< 

,166:DRAW 40.156:PL0T 5B4,166:DRAW 

594,156:F'LQT 584,20O:DRAW 594,210 

416 PAPER 2:PEN 0:LQCATE 3, 23: PRINT ÏMFs 

"Voulez-vous le mode d'emploi (G/N) 

426 □t=DPPERI(INKEYÎi:IF □t="0" THE Mi 
N 440 ELSE 430 

430 IF oï="N" THEN 630 ELSE 420 
440 is=l:F0R i=l TO 320 STEP 2:PLDT ; 
i.l,0:DRAW i,400:PL0T 640-m,l:DRAW 
É4â-Jit,400:m=m+2:MEXT 
456 MODE Uim. 1,6,3:SPEED INK 10,5 i 
:PEN 1 : PAPER 0:PRINT" * L E MO 
DE D EMPLOI*" 
466 SYMBOL AFTER 32:SÏMB0L 91. 0,0. 2 ! 
55,B9,0:PEN 2: INK 2. 11:PRINT"[[[[[[ 
[[[[[[[[[[[[[[[[[[![[[[[[[[[[[[[[[" 
476 M 3,26:FBi 1: HINDOU 1.46,3,25 i 
:PRINT"CATALOGUE;":FEN 3 
480 PRINT"CETTE OPTION PERMET DE VQ 5 
IR LE CONTENU D'UN DISC .":PRINT 
490 PEN 1 : PRINT "EXECUTEft : " : PEN 3 J 
560 PRINTCELA VOUS PERMET DE LANCE ) 
fl UN PROGRAMME ET DONC QUITTE ii SU 
PER DISC » ." 

510 PRINT:PEN 1: PRINT "RENOMMER: ":PE /WG< 
N 3 

520 PRINFCOMME SON NOM L'INDIQUE E >QH< 
LLE PERMET DE RENOMMER UN FICHIER 
D'UN DISC C'EST A DIRE CHANGER SON 
NOM SANS L'EFFACER .":PRINT 
530 PRINTîPEN 1:PRINT"EFFACER: K :PEN >RJ< 
3 
546 PRINT'TETTE OPTION PERMET D'EFF >PK< 
ACER UN FICHIERD'UN DISC , MAIS ATT 
ENTIDN '. CE FICHIER EST ALORS IRREC 
UPERABLE ." 

556 LOCATE 12,23:PEN 2:PRIHT"APPUYE >[L< 
Z SUR ESPACE": IF INKEY(47)=Ô THEN 5 
60 ELSE PEN 3:L0CATE 12,23:PRINT"AP 
PUYEI SUR ESPACE":GOTO 550 
566 CLS:PEN l:PRINT"LISTEft:":PEN 3 >GM< 
576 PRINT" C'EST UNE OPTION UN PEU >HN< 



,-fiG 



SPECIALE , CAR ELLE PERMET DE REPRE 
NDRE LE LISTING DEPROGRAMME QUE Y 
DUS AURIEZ PROTEGE AUPARAVANT. MAIS 
ATTENTION 1 CE N'EST PAS UN DEPLO 
MBEUR !?!":PRINT 
586 PEN i:PRINT"SPEEDER:":P£N 3 
59@ PRINT "CETTE DPTION PERMET D'ACC 
ELERER LA VITESSE DU DISC DE 30X 
:PRINT 

660 PEN Î:PRINT"QUITTER:":FEN 3 
610 PRINP'CELA PERMET DE QUITTER « ?1H 
SUPER DISC» ETDONC DE REVENIR AU B 
A3IC AMSTRAD .":PRINT 
620 LOCATE 12,23:PEN 2 : PRINT" APPUYE >MJ 
l SUR ESPACE": IF INKEY<47!=0 THEN à 
30 ELSE PEN 3:LÛCATE 12,23:PRINT"AF 
PUYEZ SUR ESPACE":SOTO È29 
630 PAPER 2: INK 2,26:MQDE 1 ; PEN 1:1 >&.- 
NK 1.2,1: LOCATE ie.l2;PRINT"Char9Bm 
ent en caurs...":RUN"disc,p n 

/ i%Hn»& 



5 ON ERROfi GOTO 869 


>UF< 


10 REM ###*#######(!#*###*## 


>PK 


20 REM 


>EC< 


30 REM "SUPER DISC" par : 


>m< 


40 REM 


:-GE= 


50 REM KARCHER.ï S HEPLIER.D 


>AF< 


68 REM 


>jek 


70 REM pour les AMSTRADS 


>XH< 


m REM 


>LJi 


90 REM avec lecteur de disquette 


>HK< 


180 REM 


;>fb< 


fl0 REM uniquement (CFC! 


>zc< 


120 REM 


;HD< 


m REM (ci 1987 


>f£< 


140 REfl 


>KF< 


130 REM PROGRAMME PRINCIPAL 


>KG< 


m REM 


>f1H< 


170 REM ####*#)ttlt####ltltS»tttt 


>LK 


186 REM 


>PK< 


190 REM PRESENTATION 


>VL< 



266 REM > 

210 INK 0,0: INK 1,26:INK 2, 18: INK 3 > 
,15i PAPER y;MQDE l:CLS:SYMEOL AFTER 
1;SPEED KEY 20,1:DIM a$(8»:BQRDER 
6:PEN 2:SYMBÛL 91,0,255,255,255,255 
,255,255,255 

22ô PRINT" [[[ [ [ [[[ [[[ [[[ > 

[[[[[[[[[[[ [[[[[■[[ 

[ [ [ [ [ [[[[[[[[[[ 

[[[ [[[[[[[ [ICI 

[ [[ [ [ [ [ [ [[[ 

[[[ [ [[[ [ [ [[[ L [[[ E.CI 

23È PEN 1: PRINT: PRINT: FOR i=l TO 7: , 
READ dl:a*(U=d*:LOCATE 15,i+9:PRIN 



T a$ti):NEXT 

240 DATA " CATALOGUE "," EXECUTER .FG< 
\" RENOMMER l! ," EFFACER "," LIS 
TER V 5PEEDER "," QUITTER 

250 PEN 3:FOR 1=14 TO 26:L0CATE 1,9 >GH< 

:PRINT CHRÎU27i:LÛCATE I.17:PRINT 

CHRÎ<127):NEXT 

260 FOR 1=10 TO 16:LÛCATE 14,I:PRIN >PJ< 

T CHRÏ(127):LQCATE 26,I:PRINT CHRÎ( 

127):NEXT:y=l 

270 REM 

2S0 REM LE MENU 

290 REM 

m PEN 1: LOCATE 15,y+9:PRINTT;a$ 

(y) ; 'X" 

310 aî=INKEY*:IF o*=" " THEN 50UND 

1,130,2, 6: SOUND 1,0,1,0:GOTÛ 3*0 

326 IF o$*fflR*il3) THEN FOR d=100 T > 

STEP -10: SOUND l,d,2:NEXT:6ÛTÛ 

360 

330 INK 2,INT(RND*26):GOT0 300 

340 IF f%>7 THEN LOCATE 15,y+9:PRIN ; 

T a*(y):y=y+l:GOTO 330 ELSE 350 

350 LOCATE 15.16:PRINT a$(7):v=l:G0 } 

TO 330 

360 WINDOW 1,40,S,25:CLS > 

370 IF y<>6 AND y<>7 THEN 410 ELSE > 

ù20 

386 RB1 > 

390 REM TESTE LA DISQUETTE > 

400 REM > 

410 OUT (feFA7E>, 1 > 

420 FOR i=l TO 999:NEXT > 

430 OUT v&F67Fi,4 > 

440 OUT liFB7F),2-PEEK(i;A700t 

450 dk=INP(&FB7F! ï 

460 CKJT (fcFA7Ei,0 > 

470 IF idk AND 32î=0 THEN PRINT"Dep > 

echez vous d insère: la disquette ! 

":SÛT0 370 

460 IF (dk AND 64) THEN PRINPMais > 

cette disquette est protégée !":FDR 

1=1 TO 3000:NEXT:RUN 
490 IF y=l THEN 700 > 

500 IF y=2 THEN 740 > 

510 IF y=3 THEN 570 > 

520 IF y=4 THEN 780 > 

530 IF v=5 THEN 820 > 

540 REM 

550 REM RENOMME UN FICHIER ) 
560 REM > 

570 MODE 2:CAT:1NPUT " Ancien nom " > 
;an$:PRINT CHRÎI11):INFUT ' Nouveau 

nors ";nnî 
580 !REN,ênn$,@an$:RUN > 

590 REM > 

600 REM AUGMENTE LA VITESSE > 
610 REM > 



■PK; 

;JL- 


710 REM Mi 


■RM; 


720 REM EXECUTER >FK< 


>XB< 


730 REM >QL< 




74Ô MODE 2:CAT:INPUT 11 Nom du iichie /RM' 


m< 


F a exécute ";f$:INK 0,0:6QRDEF: 1:1 




NK 1,24: MODE 1:PEN 1; PAPER 0:CLS:RU 


MF:. 


N f$ 




750 REM )TN< 




760 REM EFFACER >DF< 


>m< 


770 REM >VÛ.\ 



620 IF v=6 THEN INK 0, 


; m 


,24:B0 ?hJi 


RDER l:RUN"diîcl.bin" 






638 REfl 




>FKi 


640 REM QUITTER 




>ïLi 


650 REM 




>RM< 


660 IF y=7 THEN ! BASIC 




,*Ni 


670 REM 




>UP< 


680 REM CATALOGUE 




;NQ- 


690 REM 




>wr< 



700 MODE 2:CAT:LQCATE 77,25:PRINT"I ; 
";"->":'T':CALL kBB06:CALL fcBB06:RU 



7» MODE 2:CAT:INPUT " Noffl du tichi ) 

er a efface "jeft: ! ERA, êet *; RUN 

790 REM ) 

BÔâ REM LISTER 

810 REM ; 

820 MODE 2:CAT:INPUT " Nom du tichi ; 

er a lister ";dtî:LOAD d-f$:LI3T 

B30 REfl 

640 REM Ne tapez pas cette ligne ca ; 

r elle est la pour faire Deau !!! 

850 REM #** F I N *** ; 

860 MODE 1: PRINT "Erreur dans la liq ; 

ne noX"ïERU i ï.":STDP 



10 ON ERROR GOTO 140 



30 ' PROGRAMME PERMETTANT D'ACCE- 
LERER 



50 LA VITESSE DE VOTRE LECTEUR DE >LF: 



70 ' 



90 FOR l- 
X,A:NEXT 

100 WLL fcl000:CALL !-.BBBA:CALL S.BCO 
2: MODE 1:PEN 1: PAPER 
110 PRIKT"SUPEfi DISC":PRINT:PRINT"A 
CCELERE LE DISC DE 30 1 /." 
120 NEW 

136 DATA 33,10,16,223,7,16,201,13,1 
98,7,35,0,200,0,1,1,10,0,3 
140 MODE 1:PRINT"ERREUR DANS LA LIG 
NE noT'iERLiT.^BTGP 



) TO fel012:READ A:FmE W< 



JEU 

DON JEAN & 



Dr MON 



Michel BUZON 




Argh ! L'horrible Dr Agon a capturé la 
jolie princesse. Vous tenez le rôle de Don 
Jean. A vous de sauver la belle des grif- 
fes du démoniaque docteur. 
Le second listing doit impérativement 
être sauvegardé sous le nom 
"DJDAUEU". 



L*îuin* 



par Michel BUZON - CPC 464/6128 AW. 



DON JEAN h Dv feON 



# PRESENTATION & LQADER * >RF< 
** ** >LG< 

**♦#****##****##*#**#**♦*** j-lfK 
17 
1S 

20 CALL &BE4E:CALL fcBBFF:GQSUB 6019 > 
0:CALL &ËC65: SVMBOL AFTER 126:0PEND 
UT"d":f1Er1DfiV &5FFF:F0R F*%6&W TO >>. 
6Ô17:READ A$:P0KE F,VAL("i"+A$) :h£X 
T: DAT=0:ENV 1,1, 127,1, 16,-1, 8:ENT 
1,120,1,1, 129, 1,1:EVER¥ 39 6 
OSUB 61520 



25 DATA 21, 09, C0,tl, 18,60,91, 99,40, >HH< 
ED,B0,C9,21, 18,60,11,09,00,01,99,49 
,ED,B9,C9 

26 SYMBOL 126,255, 128, 12B, 255,8,3,2 >TJÎ 
55,8 

27 SYMBOL 127,9,5,7,9,11,29,29,62 ;JK< 

28 SYMBOL 128,0,164,228,132,196,252 >KL< 
,228,228 

29 SYMBOL 129,62,29,29,11,18,4,12,9 >DM< 

39 SYMBOL 139,228,223,228,228,68,36 >ND< 
,52,0 

31 SYMBOL 131,255, 146,146, 128,139, 1>>AE< 
94,224,249 

32 SYMBOL 132,255,73,73,1,1,3,7,15 >ZF< 

33 SYMBOL 133,248,248,248,248,249,2 >X6< 
24,128,255 

34 SYMBOL 134,159,159,31,31,15,7,1, >CH< 
255 

35 SYMBOL 135,0,49,19,19,17,31,7,3 >LJ< 

36 SYMBOL 136,9,0,192,64,9,240,144, >MK< 
144 

37 SYHBOL 137,3,3,7,15,31,63,127,0 >BL< 
3B SYMBOL 138,144,216,224,240,248,2 >ZM< 
52,254,9 

39 SYMBOL 139,255,253,248,242,248,2 >SHi 
54, 128, 140 

40 SYMBOL 140,255,191,31,79,31,127, ?FE- 
1,49 

41 SYMBOL 141,158,191,183,227,247,2 >UF< 
47,249,255 

42 SYMBOL 142,25,13,141,297,239,239 >TG< 
,15,255 

44 SYMBOL 144,1,1,2,3,5,6,11,13 >WJ<; 



45 SYMBOL 145,21,26,37,58,85,106,18 >YK< 
1,213 

46 SYMBOL 146,0,0,49,49,19,19,23,19 >ZL< 

47 SYHBOL 147,0,9,9,0,192,192,64,64 >HM< 

48 SYMBOL 148,17,17,31,31,7,7,3,3 >FN< 

49 SYMBOL 149,9,0,249,240,144,144,1 >EP<: 
44, 144 

50 SYMBOL 150,3,3,3,3,7,7,15,15 >EF< 

51 SYMBOL 151,144,144,216,216,224,2 >QS< 
24,249,240 

52 SYMBOL 152,31,31,63,63,127,127,0 >FH< 

53 SYMBOL 153,248,248,252,252,254,2 >QJ< 
54,9,0 

54 SYMBOL 154,255,159,156,232,242,2 >RK< 
39,224,249 

55 SYMBOL 155,255,249,57,23,79,103, >I"L< 
7,159 

56 SYMBOL 156,252,251,248,244,238,1 >LM< 
59,159,255 

57 SYMBOL 157,63,223,31,47,119,249, >UN< 
249,255 

100 PRE=9:M0DE w;WINDGW 1,20,1,25:B )ZB< 
ORDER 13:PAPER 0:PEN 1 
191 LOCATE 2,1:PEN 3:PftINT 'CPC b M M- 
ichel BUZON" 

193 LOCATE 6,3:PEN 1:PRINT "présent N£ 
Bit" 

106 WINDOW #1,1,20,5,7:PAPER #i,3:P >DH 
EN #l,2:CLS#l:PRINTitl:PRINTtU," DON 
JEAN t Dr AGON" 

199 LÛCATE 20,9:PEN 5:PRINT CHRK14 >HL- 
4) 

116 LOCATE 2,10;FOR F=l TO 4;PRINT >VE> 
CHRS1297)" ";:NEïT:LOCATE 20,10:PRI 
NT CHR$(145) 

111 LOCATE 2,11:F0R F=l TO 4:PRINT >RD< 
CHRÏ(2071" ";:NEXT!FRINT" ";:P£N 3: 
PRINT CHR*(139)CHRÎ(140I:LOCATE 19, 
lhPEN 5:PRINT CrtR$U44)CHRÏ(297) 

112 LOCATE 2,12:F0R F=l TO 7:PRINT >QE< 
CHR$(207)i:NEXT:LOCATE 11,12:PEN 3: 
PRINT CHR*1141)CHR$(142):L0CATE 19, 
12:PEN 5:PRINT CHR$(145)CHR$(297> 

113 LOCATE 2,13:PRINT CHR$(207)CHR$ >QF< 
(207)CHR$(217)M»(207)CHR$(207)CHR 
*<207>CHRS<207):LQCATE 18,13:PRINT 
CHRIU44)CHR$[207)CHRS(297] 

114 LDCATE 2,14:PRINT CHRî(221)CHRi >M< 
(297)CHRî(217)CHRÎ(207]CHfit(207)CW( 
Î(207)CHRS(220!:LÛCATE 18,14:PRINT 

CHR$ (145) CHR$ ( 207 ) CHR$ ( 207 ) 

115 LOCATE 3,15îF0R F=l TO 5:PRINT >VH< 
CHR$(207);:NE!(T:LOCATE 14,15:PEN 7: 
PRINT CHR* (146) CHR* (147): LOCATE 19, 
15:PEN 5: PRINT CHRÎ(207)CHfl$(207) 

116 LOCATE 3,16:PRINT CHR*(297)CHRÏ >YJ< 
(207)CHRK207)CHRI(219)CHR$(207):LO 
CATE 14,16:PEN 7:PRINT CHR$U48)CHR 
»(149>:L0CATE 19,16:PEN 5:PR1NT CHR 



*(207)CHR*<207) 

117 LOCATE 3,17:PRINT CHR*(2C7iCHR* >NK< 

(207)CHRt(207)CHR*(219)CHR*(207):LQ 

CATE 14,17:PEN 7:PRINT CHR*(150)CHR 

*(151):L0CATE 19,17:PEN 5:PRINT CHR 

*(207>CHRI(217) 

116 LQCATE 3,1B:F0R F=l TO 5:PRINT >CLî 

CHRS(207);:NEXT:LOCATE 14,18:PEN 7: 

PRINT CHR*(152)CHR*(153]:LC€ATE 19, 

18:PEN 5:PRINT CHRtt207)CHRS (217) 

119 LOCATE 3,19iF0R F=l TQ 5iPRINT >UM<. 
CHRît2e7);:NEXTjLOCftTE 19,19:PRINT 

CHR* (207) CHR* (207) 

120 LOCATE 3,20:FRINT CHRÏ<207)CHR* >QD< 
(220)CHfiS(22i)CHR*(207)i:FQfi f=l TO 

6:PRINT CHRÏÎ207)" "; :NEXT:PRINT C 
HR* (207) CHR* (207) 

121 LOCATE 3,2i:PRINT CKfi*(207);:PE >J£\ 
N 6:PRINT CHR*(127>CHRt 1128) ; :PEN 5 
:PRINT CHR*(207!;:FOR f=l TO 6:PRIN 

T CKRt(207)" ";:NEXT:PRINT CHRÎ1207 
i CHR* (207) 

122 LOCATE 2,22:PRINT CHR*1222)CHR* >KF< 
(207);:PEN 6:FRINT CHR* ( i 29 ) CHR* (1 3 
ei;:PEN 5:PRINT STRING*(15,CHR*(207 

)) 

123 LOCATE 1,23:PEN 4:PRINT CHR*(22 >QG< 
2);:PEN 5:PRINT CHR*<207)CHR*(207)C 
HR*(21B)CHR([21B)STRING*{15,CHRt(20 

7)! 

124 LOCATE 1,24:PEN 4:PRINT STRIMGt >WH; 
(20,CHR*(216)){CALL &6000 

125 CALL &600C:LOCATE 2,25:PAPER 0: ■/ . 
PEN l:PRINT"Regle du jeu (Q/N)":GO£ 

UB 60000:PRE=1:WHILE INKEYIO"":l€N 

D 

13$ R*=UPPERKINKEY*):IF R$="N" THE >XE< 

N R=REHAINW):SOUND 1S5,9:L0CATE 2, 

25:PRINT"VeuilIez patienter": INK 6, 

IjM 7,16:RUN"!DJDA1JEU.BA5":ELSE 

IF R*O"0" THEN 136 

135 ' >JK< 



148 'm************************** >df< 
150 '*»****** REGLE DU JEU ******* >D6< 
liS 's**************************** >FH'-: 
176 MDDE 1 : 6QSUB 60100: HINDOU 1,4e, >CJ< 
1,25: PAPER 2:PEN 3:CLS:UIND0U 11,4, 
37,4,19!PAPER tl,2iPEN #1,1:CLS»1 
1» FOR F=l TO 39 5TEP 2:L0CATE F,l >hK< 
:PRINT CHR* Il 39) CHR* (140): LOCATE F, 
2:PRINT CHR*U41)CHR*(142):L0CATE F 
,21:PR1NT CHR*(139!CHR*I140):LQCATE 

F,22:PRINT CHR*(141)CHR*(142):NEXT 
190 FOR F=3 TO 19 STEP 2:L0CATE 1,F >FL< 
: PRINT CHR* (139) CHR* < 1401 :LKATE 1, 
F+1:PRINT CHRS(141)Ofl*(142)!L0CATE 

39,F:PRINT CHR*(139)CHR*(14Ô):L0CA 
TE 39,F+1:PRINT CHR*(141)CHR*(142): 
NEXT 
200 WINDOW #2,1,40,23,25:PAPER #2,6 >JC< 



:PEN #2,1;CLS#2:«IND0W SHAP 6, 1 : QOS 
UB 295 

210 PRINT:PRINT" La princesse T >Sfr 
AIK'QNERV a ete":PRINT" enlevée par 

l'ignoble Dr AGON qui":PRINT" 1 
a séquestre dans l'une des 64":PRIN 
T"pieces de son chatEau.":PRINT 
220 PRINT:PRINT"Vous,DON JEAN HERAL >NE- 
D BOLL, devez la":PRINT" délivrer et 

la ramener dans votre": PRINT" inexp 

ugnabïe citadelle ":GOSUB 60000 

:WHILE INKEVtO"":WEND!HHILE INKEY* 

="":WEND:CL5#2:CLS:INK 1,12 

230 PfiINT:PRINT"Le Dr AGON n'est vi >JF< 

sible que quand":PRINT"il attaque s 

es adversaires." 

240 PRINT:PRINT"Vous avez droit a t : G< 

rois vies.":PRINT:PRINT" La premi 

ère vous permet de vous":F'RINT" dep 

lacer de 8 cases a la fois, la":PRI 

NT" deuxième de 6, la troisième de 

4." 

250 PRINT" Il vous faudra d'abur >ÏH< 

d choisir":PRINT"la case de votre c 

itadelle ":INK 1,0:6OSUB 295:WH 

ILE INKEY*<>"":UEND:WHILE INKE¥$=" " 
:UEND:CLS*2:CLS:INK 1,12 
255 PRINT: PRINT" Puis le Dr AGON s'e >PtK 
nvolera avec la":PRINT"princesse da 
ris sa chambre secrète." 
260 PRINT:PRINT" Lors de vos deplac ?WJ< 
ements a l'aide":PRINT" des touch 
es flechees,il se peut":PRINT" que 
vous soyez arrête par un »ur":PRIN 
T" invisible qui se matérialiser 
a":PRMT"alors ainsi ; "STRING*(4,C 
HRÏU2Ù)) 

270 INK 1,0:GQSUB 295:NHILE MEV*< ?TK< 
>"":WENDfWHILE INKEY*="":N£NB:CL5K2 
:CLS:INK l,12:PRINT"Si vous êtes a 
moins de 3 cases de":PRINT"la pièce 
ou est la princesse, vgus":PRINT" 

réveillerez le Dr AGON qui vous"; 
PRINT" poursuivra en volant d'une 
case" 

280 PRINT"a la fois.":PRINT:PfiINT" >1L< 
Repérez bien votre position quand": 
PRINT"il se reveillera, sinon " 

290 PRINT:PRINT:PRINT" 6 N N E >W< 

CHANCE !":INK 1,0:GO3UB 295 
:UHILE INKEV*<> " " : WENDs W4ILE INKEV* 

="":UEND:H0DE 0:GOTO 125 
295 LOCATE H2,4,2:PRINT#2,"*** TAPE >XT< 
l ESPACE POUR LA SUITE ***":RETURN 
59999 ' >YV< 

m<M INK 0,13: INK 1,0: INK 2,12:M >BG< 
3,3:INK 4,9:1»; 5,15:It«< 6,1: INK 7 
,16:RETURN 
60100 BORDER 13:F0R F=0 TO 7:INK F, >IX< 



13:NEXT:RETURN 

60101 ' > 

60996 'M************************* >uh< 

60997 ********* SONS ********* >KJ< 

60998 's************************** > 

60999 ' >Ft< 

61000 DAT=DAT+1:IF DAT=85 THEN 6109 >DH< 



61010 D=-1*(DAK43)-2#(DAT>42) 

61020 IF DAT=43 THEN RESFORE 61100 

61030 IF PRE=1 THEN INK 6,INT(RND(1 

)«5M4:lNK 7,INT(RND(l)*l-3)+14 

61040 READ Û,N2,N1,N4 

61050 SOUND 1,N1\0,D,11,1 

61060 SOUND 2,N2\Q,D ( 14,1 

61070 SOUND 4,N4\0,D,U,1 

61080 RETURN 

SOUND 1,80,320,5,,1:SOUND 2,6 
0,5,,1:SOUND 4,95,320,5,, 1:DAT= 

0:RESTQRE 61100:RETURN 

61095 ' DO H 

61100 DATA 60,239,319,379 

61110 DATA 10,239,319,379 
61120 DATA 10,239.319,379 

61125 ' — - — 

61130 DATA 60,239,319,379 
61140 DATA 10,239,319,379 
61150 DATA 16,239,319,379 

61155 ' 

61160 DATA 20,239,319,379 
61170 DATA 20,319,379,478 
61180 DATA 20,239,319,379 
61190 DATA 20,190,239,319 

61195 ' 

61200 DATA 20,239,319,379 
61210 DATA 20,319,379,478 
61220 DATA 20,239,319,379 



>KK< 

;Hi. 

>TH 
.>DMï 
)KP< 
. «■■ 
>ZR< 
>KT< 






>ET; 

m--. 



61230 DATA 20,190,239,319 


: ON-, 










61240 DATA 60,239,319,402 


>RP< 


61250 DATA 10,239,319,402 


->MC1< 


61260 DATA 10,239,319,402 


>hr-: 


61265 ' 


>FÏ< 


61270 DATA 60,239,319,402 


>VT< 


61280 DATA 10,239,319,402 


m. 


61290 DATA 10,239,319,402 


>RV< 


61295 ' 


>JA< 


61300 DATA 20,239,319,402 


;jLv 


61310 DATA 20,319,402,47fl 


m 


61320 DATA 20,239,319,402 


>LN< 


61330 DATA 20,201,239,319 


>JP< 


61335 ' 


>DV< 


61340 DATA 20,239,319,402 


;MQv 


61350 DATA 20,319,402,478 


>7Rv 


61360 DATA 20,239,319,402 


>QT< 


61376 DATA 20,201,239,319 


>NU< 










61380 DATA 60,213,253,319 


>TV< 


61390 DATA 10,213,253,319 


m< 


61400 DATA 10,213,253,319 


;EH< 



61405 
«410 
61429 
61438 
61435 
61440 
6145» 
61460 
6i4Ti) 
61475 
61488 
61498 
61500 
61510 
615?» 



DATA 60,213,253,319 
DATA 10,213,253,319 
DATA 10,213,253,319 

DATA 20,213,253,358 
DATA 20,253,358,426 
DATA 20,213,253,358 
DATA 20,159,213,253 

DATA 28,179,213,253 
DATA 26,213,253,358 
DATA 20,179,213,253 
DATA 20,106,127,179 
ON SQ(2) GDSUB 61000: C 



>LN< 
>6P< 

■m. 

>m 

>HT< 
MfcK 

>JA< 
HJW- 



GDSUB 6100O:ON SQ(4) 60SUB 610OO;R 



L i%Hnq£ 



'******************************* 
'#»**# ****** 



*♦** DON JEAN l Dr A60N **** 


>RD< 


****** ****** 


>ÏE< 


******************************* 


>8F< 




>BG< 


par Michel BUZQN - CPC 464/6128 


>m 




>VJ< 




» AVRIL 1987 * 


>XK< 



*************** 



*************** 



17 ' 

18 ' 

20 DEF1NT A-R,T-Z:DM MURU87),NQ$t 
11):F0R F=l TQ 9:SCQR£<F)=222222-F* 
F #2222: REftD NOM${F):NEXT:FAC=0 
30 DATA HARRY COVER,JEAN EMAPD,RENE 
E BHA,PAULE AUNET, PIERRE AFEU,VVAN 
DECLQU.JW NASTIC,SAfl DIRIEN,I1ARC H 
ELB1AL 

40 ENV 1,10,1,1,20,-1,1,20,1,1,127, 
-1,1;S0UND 7,4000, 600,10,1, ,31: MODE 
1: BORDER 9:G0SUB 60100s HINDOH 16,4 
0,1,25:PAPER 2:FEN i:CLS:WINDQW ttl, 
1,15,1,25:PAPER ttl,0:PEN #l t liCLSftl 
îWINDQB #2,2,14,2,È:PAPER #2,3:PEN 
#2,2:CLS#2 

50 PEN O:F0ft Y=2 TQ 24îLÛCATE 2,Y:P 
RINT STRINGÏ!23,CHRÏt207)):NEXT:QRI 
BIN 15,303:DRAW 0,82:DRAWR 210,0:Dfi 
AWR 0,-B2:DRANfi -210,0:PRINT#2:PRIN 
I#2," DON JEAN":PRINT#2:PRINTt2," 

20 



5 Dr AGQN":ORIGIN 2,2:DRAW 0,395:D 
RAWR 232,0:DRAWR Ô,-395:DRA«R -232, 


69 PEN 1:PAPER 0:LOCATE 1,1: FOR f=l >YG< 
TO 25:PRINT CHR«(L26);slCXT<F0R f= 

2 TO 24:L0CATE 1,F:PRINT CHRK126): 
LOCATE 25,F:PRINT CHRÏ(126):NEXT:L0 
GATE 1,25:F0R M TO 25:PRINT CHRJI 
126);st€XT 

70 ORISIN 239,2: DRAW 0,397:ORIGIN 6 >TH< 
39,399:DRAW 0,-397:REM DRAHR -400,0 

80 PAPER 2:F0fl Y=4 TO 22 STEP 3:LX >KJ< 

ATE 2,V:PRINT STRIN6$(23," ");NEXT 

96 FOR X=4 TO 22 STEP 3:F0R V=2 TO >NK< 

24:LKATE X,Y:PRINT " ":NEXT V,X 

m FOR x=2 TO 6 STEP 2:LQCATE 11,» >QB< 

,8sPRINT#l,CHR*(24)CHRt(127)CHR»(12 

B):LXATE H,x,9:PRlNT#l,CHR$(129iC 

HR$(130)CHR*(24):NEXT:LOCATE #1,8,B 

:PRINT#l,CHR*(24)CHRi(135)CHR»(136) 

: LÛCATE#1 , 8 , 9: PRINTK1 , CHR* 1 137 ) CHRS 

(13B)CHR$(24) 

110 LXATE#1,10,B:PEN #1,3:PRINT#1, >HC< 

CHR*(139)CHR*U40):LÛCATE #1,10,9:P 

RINT#1,CHR$U41)CHR*<142> 

120 PEN#1,1:L0CATE #1,13,8:PRINT#1, >MD< 

CHRt 1131) CHR* ( 132 î : LOCATE *1,13,9:P 

RINT#l,CHR*(133)CHfi$(134> 

130 WINDON #3,2, 14,11, 24:PAPER #3,3 ;DE< 

:PEN #3,0:CLS#3:0RIGIN 15,15:DRAW 

,226:DRAWfi 21O,0:DRAWR 0,-226:Df(AWR 

-210,0:CALL &60O0:NINDOW #4,3,38,2 
1,23: PAPER #4,0: PEN #4,1:G0SUB 6020 

140 A*=" A laide des ■ 

touches fléchées, place: votre cit 
adelle au vous le desirez, puis app 
ayez sur [copy] pour valider votre 

choix " 

150 C=2:ENT 1,20,-1, 1:WHILE IKKEY$<. >Q6< 
>"°:WEND:F=FRE(""):GOSlJB 6O000:WHIL 
E INKEÏ$=" " : D$=LEFTt (A*, 1 ) :Ct=RISHT 
Î(A$,LEN(A$)-1):A*=C*+D$:B*=LEFT*(A 
*,34):C=C*2:C=C+7*(O4i:S0UND C,BO/ 
C,4,4,,l:LOCATE #4,2,2:PRINT#4,Bï:W 
END 

153 - ;-JK< 

154 '-emplacement de la citadelle- MA 

155 CALL &600C:FDR F=0 TQ 1 : LOCATE >JM< 
*1,13,B+F:PRINT#1," ":NEXT:FQfi F=l 

TO 31:SQUND 5,0,1,7,,,F:NEXT:XC=2: 
X=XC:YC=8:Y=YC:CA=131:F'A=0:PE=1:GQS 
UB 603ÔO 

160 FL*=" TOUCHES" +SPACE* 1 1 9HCHR >JH< 
*(242)+" H +CHRK240)+" "+CHR*(241)+ 
' "+CHR*(243):CLS#3:LXATE#3,1,2:PR 
INT#3,FL*:LXATE#3,6,6:PRINT#3,"PUI 
S";LQCATE#3,5,B:PRINT#3,"[CGPY]":L0 
CATE#3,6, 10:PRINT#3, "PDUfi":L0CATE#3 
, 4,12: PRINT#3, "VALIDER" 



165 WHILE INKEY(9):S01M) 2,0,10,2,, > 

,1:IF INKEV(O) AND INKEYU) AND INK 

EY(2) AND INKEY(8) THEN 165 ELSE XC 

1=XC+3*(INKEY<8)=0 AND XD4)-3*(INK 

EY(1)=0 AND XC<211:YCl=YC+3*tINK£Y( 

0)=O AND YO4)-3*(If#:EY<2)=0 AND YC 

<21) 

170 X=XC:Y=YC:GOSUB 60400: XC=XC1:YC >FJ< 

=YCl:K=XC:Y=YC:PE=l:PA=0:CA=131:B0ï 

UB 60300:PA=3:SDUM3 -l*(XC<=il)-4*( 

XD=14),XC*YC*4,8,7+lXC\3)*(XCa4) + 

l(25-XC)\3)»(XDll):WEND 

175 '-emplacement chambre secrète- > 

180 CLS#3:L0CATE#3,2,3:PRIfJT#3,"LE >JK< 

Dr AG0N":LXATE#3,3,5:PRINT#3,"S , EN 

FUIT":L0CATE#3,5,7:PRINT#3,"AvEC":L 

0CATE#3,6,9:PRINT#3,"LA U :LXATE#3,3 

,11:PRINT#3,"PRINC£5SE" 

190 FOR F=10 TO 8 STEP -2:L0CATE#1, >UL 

F,B:PRINT#1," ":LXATEtl,F,9:PRINT 

11," ":FOR S=10O0 TO O STEP -20:SQ 

UND -4*<F=10!-1*(F=8),S,1,7;NEXT B, 

F 

195 CH^hËSSUD 6O600:DRIGIN 120,274 >GR 

:DRAW 0,-22:DRAWR 92,0: :FOR 0=0 TO 

12 STEP 4:0PJGIN 120+Q,276tO:DRAW 9 

2,0tDftAWR 0,-22:NEXT 

2W RANDOtlIZE TIHE:XP=INT(RND[1)*8) >YC< 

+ i : XP=XP+3- 1 : ÏP= INT < RND U j *Q ) +1 : YP= 

YP*3-l:XT=XP:YT=YP:XTl=)iC:YTl=YCit= 

9;SÛSUB 605PO:5OUND XT\4+1,Ô,1,7,,, 

«T:IF FLAG THEN 200 ELSE XA=XP:YA=Y 

P 

204 ' >F6<: 

205 'tirage au sort du labyrinthe >VH< 
210 FOR F=l TO 187:riUR(Fi=0:NEKT:IF } 

FAC=0 TtEN S=INT(RND(1)*2):F0R NN= 
TO 6iHURlINT(RND(l)*76)+ll-100*(S 
>0))=1:NEXT:FAC=1:G0T0 230 
220 LAB=INT(RND(1)*20)+1:QN LAB 603 >Œ< 
UB 61010,61020,61030,61040,61059,61 
060,61070,61080,61090,61100,61110,6 
1120,61130,61140,61159,61160,61170, 
61180,61190,61200 

224 ' >HJ< 

225 ' INITIALISATION >UK< 

230 ttORT=0:VI=4:PD=0:RV=0:ND=0:CH=N >KF< 
W*1Ô+ 1 : T I =CH\2: EVERY 50 GOSUB 6060O 

234 ' >JK< 

235 ' VIES=VIEB-1 >l 

240 VI=VI-1:IF VI=0 THEN PAPER 1:PE > 
H 0:FOR L^O TO 1:L0CATE XP,YP+L:PRI 
NT CHRÎ(135+L*2)CHRt(136+L*2):NEXT: 
BDTO 2010 

250 X>XC:YJ=YC:FOR L=0 TO hLQCATE > 
#1,VI»2,8+L:PRINT#1,CHR$(32+122*I10R 
T+L*2*M0RT ) CHR» ( 32+1 23*flCRT+L*2*M0R 
T):NEXT:FOR S=3l TO 1 STEP -1:S0UND 

S\7+l,0,l,7, M S:NEXT:GOSUB 607OO:C 
LS#3 



255 ' BOUCLE DE VIE 

26fl NC=VI*2+3: GOSUB 68810 

264 ' 

265 '- BOUCLE DE COUPS fi JOUER ~ 
270 HUILE INKEYfO"":NEND:NC=NC+l*f 
ND0):IF NC=0 THEN 900 aSE LOCATE» 
3,10,12:PRINT*3,NC 

274 ' 

275 ' DON JEAN JOUE 

2» IF CH<1 THEN 2008 ELSE IF RV=È 
AND CH(TI THEN GOSUB 1806 

285 SE$=INKEYS:IF SE$<CHR*<240> OR 
SEÏ>CHR*(243) THEN 268 
290 ND=ND+hXT=XJ+l*(SE*=CHR*<242) 
AND KJ>4)-2*(SE$=CHRi(243) AND XJ<2 
1):YT=YJ+1*(SEI=CHR*(240) AND YJ>4) 
-2»(SE$=CHR*(241) AND YJ<21):IF XT= 
XJ AND YT=YJ THEN 288 



■ TEST flUR 1 



294 ■ 

295 ' 

300 IF SEMCHR*(240) DR SE$=CHR»(24 ; 
1) THEN TE=100+(XT\3+1)*10+(YT\3) E 
LSE TE*(XT\3)*10+(YT\3)+1 

.384 ' > 

365 ' STOP MUR ! ) 

318 IF HUR(TE)=8 THEN 488 ELSE CLS» > 
3:LGCATE#3,1,4:PRINT#3," STOP !" 
+SPAC£$<38)+ U ICI, IL Y A"+SPACE$131 
)+"UN HUR" 

328 PAPER 8:PEN hFEJR P=-l TO 2:LQC > 
ATE XT-P*(TE>9<î),YT-P*tTE<99):PRINT 
CHR*(126):NEXT 

338 ORI6IN 639,2:DRAH 0,397:RANDOMI > 
ZE TIMEiFOR F=18 TO 188 STEP 18:S0U 
ND -l*iXT<=13)-4*(XT>=13), 1888, 4,7+ 
IXT\4)*lXT<13) + {<25-XT)\4)*(XTH3): 
II* l,INT(RND(l)»12)+14:FÛfi W=l TO 
F*3:NEXT W,F:INK 1,8:G0T0 988 

394 ' > 

395 '-TEST NI le POS. de DON JEAN- > 
488 IF XJ=XC AND YJ=ÏC THEN 418 EL5 > 
E X=XJ:Y=YJ:GÛSUB 68488 

418 XJ=XJ+3*<SEt=CHR*<242))-3*iSES= > 

CHR» (243) ) : YJ=YJ+3# (SE*=CHR$ (248) ) - 

3*(SE*=CHR$(24D) 

428 IF PD=8 AND XJ=XP AND YJ=YP AND > 

(XPOXA OR YPOYA) THEN PD=1 
438 IF PD=2 AND XJ=XC AND YJ=YC THE > 
N PAPER 1:PEN 8: FOR L=8 TO 1 : LOCATE 

XC,YC+L;PRINT CHR$(135+L*2)CHR$(13 
6+L*2):NEXT:S0T0 3888 
448 IF XJ=XC AND YJ=YC THEN 518 > 

493 ' 
499 ' 



ÛF: 
;*ET< 



-RAS >DZ< 

580 X=XJ:YïYJ:PA=2:CA=127-e*iPD>0): >KF< 
GOSUB 68388 

510 EUT 1, 10,-18, 1; SOUND -H(XJ<=U H$< 
>-4*<XJ>=14), 2000+1900» (PD>0), 18, 7+ 
(XJ\3)»(XJa4) + (t25-XJ)\3)*(XJ>ll), 



328 IF PD=2 AND XJ=XC AND YJ=YC THE >AH< 



530 IF RV=0 THEN T=6:XT=XJ:YT=YJ:XT 
1=XA:YT1=YA:BQSUB 68580:1F FLAG THE 
N GOSUB 1000 

598 ' 

599 '— PRINCESSE DECOUVERTE 

680 IF PDOI TH£N 708 

618 CLS*3:LOCATE#3,4,2:PRINT#3,"RAM 
ENEZ":LOCATE(t3,7,4!PRINT#3,"LA«:LDC 
ATE#3,3,6:PRINT(I3,"PRINCESSE":L0CAT 
EB,6,B:fflINTI3,'DflHS":L0fflTEI3,7,l 
8: PRINTI3, "LA" : L0CATES3, 3, 12: PRINTI 
3, "CITADELLE" 

620 FOR m TQ 34:SDUND 5,H,«,W\6+1 
lINK 3,INT(RNDlll*12K14:FOR 1=0 T£3 
W:NEXT I,W:FOR W=l TO 2088:NEXT:IN 
K 3,3:PD=2:IF NC=1 THEN NC=8:GOT0 9 
08: ELSE GOSUB 68888 



699 ' - LE Dr AGON VOUS ATTAQUE - 

700 IF XJ=XA AND YJ=YA AND (XJOXC 
OR YJOYC) THEN 718 ELSE GOTO 270 
718 CLSK3:LQCATE#3,1,4:PRINT#3," L 
E Dr AS0N"+SPACE$(31)+"V0US ,, +SPAC£* 
f34)+"ATTAQUE":PAPER 8:PEN 3:F0R L= 
8 TO hLOCATE XA,YA+L:PRINT CHR$(13 
9+L*2)CHRÏ(148+L»2):NEXT 

720 RANDOMIZE TIHE:FOR F=18 TO 188 

STEP 18:SOUND XA\4+1,F*20,F,7:I=INT 
IRND<1)»12)+14:M 0,1: BORDES I:FOR 
W=l TO F*16:NEXÎ W,F:B0RDER 9:INK 

0,13 

730 X=XA:Y=YA:GOSUB 60408:f1OPT=l:IF : 
XA=XP AND YA=YP THEN PD=2 

798 

799 ' PRINCESSE MORTE : 

800 PM=0:IF PD=0 THEN 248 ELSE Ftl=l ; 
:A*="La Princesse est morte, vous n 

e pouvez lui survivre": GOTO 2020 
B98 ' ; 

899 Dr AGON JOUE : 

988 IF CH<1 THEN 2000 ELSE IF RV=0 : 

OR (XJ=XC AND YJ=YC AND XA=XP AND Y 

A=YP) THEN 268 

910 CLS#3;LDCATE#3,1,4:PRINT#3," L > 

E Dr AGON' 1 

928 IF XJ=XC AND YJ=YC THEN LOCATE* ï 

3,1,7:PRINTK3," RETOURNE "+SPACEK 

31)+"CHEZ LUI " : FOR F=6 TO 1 STEP -1 

:GOSUB 948:NEXT:XA=XA-3*<XP>XA)+3*i 

XP<XA<:YA=YA-3»(YP>YAH3#(YP<YA):.1N 

K 0,13:GOTO 260 

930 L0CATE#3,1,7:PRINT#3," VOUS > 

"+SPACE$ [ 33) + "POURSU I T " : FOR F=l TO 

6:SOSUB 948:NEXÎ:XA=XA-3*(XJ>XA)+3* 

<XJ<XA):YA=YA-3»(YJ>YA)+3*(YJ<YA):I 

NK 0,13: IF XA=XJ AND YA=YJ AND (XJ< 

>XC OR YJOYC) THEN 718 ELSE BOTO 2 



940 FOR B=l TO 31 i SOUND F,0,2,F,,,B ; 
:INK 8,INT(RND(l)*14i+12:N£XT;F0R M 
=1 TO 108-F#18:NEXT:RETURN 

998 ' > 

999 '— LE Dr AGON SE REVEILLE — ; 

1000 aSI3:L0CATE(t3,3,4!PRINT»3,' I LE > 
Dr AG0N":L0CATE#3,7,7{PRINT#3, U SE" 

!LDCATE#3,4,10!pRINT)l3,''REvEILLE":P 

APER#2,0:PEN#2,3:FOR L=8 TO l:LOCAT 

E#2,12,l+L:PfiINT#2,CHR*(139+L»2)CHR 

*(148+L*2J:NEXT 

1018 FOR F=7 TO 1 STEP- 1: FOR R=10 T > 

1 S7EP-1:50UND 5,8,2,8-F,,,F*4:IN 

K 8,INÏ<RNDU)*14)+12:FOR W=l TO F* 

R*3:NEXT H,R,F:INK 0,13:RV=2:GOSUB 

60800:LOCATE#3,ie,12:PRINT#3,NC:RET 

URN 



********#*#♦#***#*»****#»#*# 



1993 
1994 

1995 '* * ; 

1996 * PERDU * ; 

1997 * * j 

1998 "m************************* 

1999 ' ; 

2000 AI="Tiens !...!. !.... Le? 

rois fainéants existent encore '?*: 

GOTO 2028 

2810 A$="Plus aucune vie, pas d'esp ) 

□ir" 

2028 R=REMAIN(0i:PAPER 1:PEN 8:FDR ; 

L=8 TO l:LOCATE XP,VP+L:PfiINT CHR$( 

135+L*2)CHR*(136+L*2):NEXT:PAPER 8i 

PEN 3:FDR L=0 TQ liLOCATE XA,YA+L:P 

RINT CHRÎU39+L*2!CHR$(140+L*2)iNEX 

T 

2823 IF VK1 OR CH<1 THEN PAPER 0:P > 

EN 3:F0R L=0 TO hLOCATE XJ,YJ+L:PR 

INT CHR*(154+L*2)CHR$(155+L*2):NEXT 

2825 CLS#3:PEN#3,liF0R L=2 TO 9:L0C ) 

ATE*3,7,L:PRINTtt3,CKRt(143):NEXT:L0 

CATEI3, 4, 4: Pfl I NT*3, STRI NG$ ( 7 , CHR$ ( 1 

43)): IF (XA=XP AND YA=YP) OR PM=1 T 

HEN PAPER 3+2*(CH<l):PEN 0:FOR L«4 

TO hLOCATE XP,YP+L:PRINT CHRIU35+ 

L*2)CHRï(136+L*2):NEXT 

2030 9*=STRIN6*!20,". u i:A$=B*+A$+\ ) 

ADIEU ! Appuyez 

sur [ESPACE] pour rejouer 



2835 



>bl- 



2840 N* 1 2 ) =" 23923923923920 1 2132 1 323 >QG', 
9239268239000" 

1 D((2)="12009803012009083089003 >FH< 
8898038120128" 

2060 Nï(l)="40247835B60248231935842 /EJ< 
6" 

2078 D$(l)="36012012012009003089063 >LK< 
0" 
28B8 N$(4)="47B63860253647863856650 >ÛL< 



2690 D*(4)="24012012612021003009003 >GM< 



Km 



,>NT-. 



2166 C(2)=-2:CU)=C(2)!C(4)=C(2):EN >ND< 

V 1,120,-1,15:EVERY 30 GOSUB 2150 

2110 GOSUB 602e0:F=FR£f"):WHILE IN >KE< 

KEYJ<>« ":D*=LEFTt(fll,l):C*=RIGHT$( 

AÏ,LEN(A*)-1):A*=C$+D*:B$=LEFT*(A*, 

34):L0CATE tt4, 2, 2sPRINT#4, Bt: UEND 

2128 FAC=FAC+1#(FAC=1) >TF< 

2138 SOUND 135,0iR=REMAIN(0):GOTO 4 >MG< 

8 

2158 OU 5Q(2! GOSUB 2200:ON SQ(1> G >ÏJ< 

ÛSUB 2388:0N SQ(4) GOSUB 2460:RETUR 



2288 CI2)=C(2)+3:IF Cl2)>36 THEN C( 

2)=1 

2218 SOUND 2,VAL(MD!t<l«f2),Ci2),3) 

),VAL(MÏDJ(DI(2),C(2),3)),18,1:RETU 

RN 

2306 CU)=C(l)+3iIF Cfl)>24 THEN Cl 

1)=1 

2318 SOUND I,VALIHID$(lttUS,C(l),3) 

),VAL(RI[}$(D*{1),C(1),3)),4:RETURN 

2488 C{4)=C(4)+3:IF C(4)>24 THEN Cl 

4M 

2418 SOUND 4,VflL(MHJHN$(4),C(4),3) 

),VALlHIDï(D$(4),C(4),3M,4:RETURN 

2993 ' 

2994 ' **************************** 

2995 '» * 

2996 '* GAGNE * 

2997 * * 

2998 ' **************************** 

2999 ' 

3888 SOUND 135,8:R=REhAIN(8) :FAC=2: 
IF XAOXC OR YAOYC THEN PAPER 8:PE 
N 3:F0R L=0 Î0 1:LQCATE XA,YA+L:PRI 
NT CHRt(13?+L*2)CHR$(146+L*2):NEXT 
3883 IF XAOXP OR YAOYP THEN PAPER 

6:PEN 1:FDR L=8 TO 1:LQCATE XP,VP+ 
LiPRINT CHR$U31+L*2>CHR$(132+L*2>: 
NEXT 

3885 PAPER#2,2:PENK2,3:CLSIt2:L0CATE 
*2,2,2:PRINT*2, "VOTRE 5C0RE":5C0RE( 
10)=INT((CH»VI*10006)/ND):SCORE«16 
)=HID* 1STR* (SCORE! 16) ),2Î:LQCATE#2, 
7-LEN(SCDRE$ l 19) ) \2, 4: PRINT#2, SCORE 
1(161 

3618 RANMMZE TIME:F0R F=l TO 224 
STEP 4:INK 2, 1NT (RND ( 1 i *22) +4! SOUND 

2,225-F,26,7:S0UND l,227-F,2«,7iS0 
UND 4,229-F,28,7 

3826 0RI6IN 16,16:DRAW 266,F,INT(RN 
DU)*4)+1:0RIGIN 222,16:DRAW -206,F 
,INT(RND(1)*4)+1:QRIGIN 222,238:DRA 
H -286 1 -F,IMT(RHD(1)*4!+1:QRIGIN 16 
,238:DRAW »6,-F,INTtRND(lt*4)+l:NE 
XT:INK 2,12 

22 



3638 PLOT 8,8,1:PAPER *3,iiPEN «3,2 )LG< 

iAt=" BRAV0"iF0R F=3 TO 11 STEP 2sL 

0CATE*3,F,F:PRINT#3,MIDïlA*,F\2+l,l 

):NEXT 

3040 ■ >DH< 

3656 N$(2)="119i06095eB0095e8609508 >AJ< 



53668663871 66366866388988867 1 6B6 127 

119186119127119895688668668" 

3666 D$<2!="63803883669061586661589 >WK< 



81601 661681561 56156 15636868" 

3679 r»(l)="19ei7915923989509531969 ) 

51192390956953196951 192256956952251 

96113179142119127142156127119186239 

6951 27 1421 27 1 193 1 9686688 1791 59 1 422 1 

3 1 66 1792393 19379478868666" 

3886 N*<4)="23925331923911911931911 > 

9 1 592391 1 9 1 193 1 91 19 1592251 1311 32B42 

25159213179142159179156159142127239 

1 1 9 1 59 1 79159 14231 9 186 1 8621 3 196 1 793 1 

912721323931 9379478060066" 

3695 > 

3896 C(2)=-2:C(1)=C{2):C(4)=C(2):SÛ > 
UND 135,0:F=FRE(""):EVERY 16 GOSUB 
36006: IF SCORE(10KSCORE(9) THEN 50 
00 ELSE CLS#2:L0CATEtt2,2,2:PRINT#2, 
"VOTRE NOM Tim F=0 TO 16:NQ$(F)= 
"":NEXT:NOM$!10)=" ":X=0 



5095 



ENTREE DU NOM - 



RU- 
■ MU . 



3188 LGCATE#2,1,4:PRINT#2," >LE< 

...":LQCATE#2,1,4:PRINT#2,NOMÏ(10I: 
HHILE INKEYÎO"":WEND 
3116 Rf=UPPERS(lNKEY*)tIF fit="" THE >AF< 
N 3116 ELSE IF Rï=CHR*U3) THEN 315 
6 

3128 IF R$=CHR$Ï127) THEN N0Ï(X)= U " >DG< 
:X=X+l*(X>ô):GOT0 3140 
3130 IF M8 THEN 3110 ELSE X=X+1:N >PH< 
0*<X)=R* 

3140 FOR F=l TO X-l*!X=6):NGm(10) = >NJ< 
LEFTÏ(N0nt(16),F)+N0i(F):NEXT:SaT0 
3160 

3158 SPEED KEY B,2:NÛM$(10)=MID$(NO >JK< 
Ht(10),2):IF MBtKlW»" THEN NOM»! 
18)="* INCONNU *" 

3208 ' >GF< 

3360 ' CLASSEMENT DES SCORES >RG< 

ET DES NOUS 

3400 ' >DH< 

3506 ' >KJ< 

3666 FOR F=16 TQ 2 STEP -1:F0R T=l >flK< 

TO F-l 

3788 IF SC0RE(TKSC0RE(F) THEN SCOR ,>QL< 

E=SCORE < T) : N0ftt=N0M$ < T ): SCORE ( T ) =SC 

DRE(F):NOn*(T)=NO(1t(F): SCORE (F)=SC0 

RE!N0Mt(F)=NOM* 



389» NEIT I,F 


>H1< 


3W0 ' 


>PN< 


WX> ' MISE EN FORME DES 


>ÏE< 


CHAINES/SCORES 








4200 ' 


>HK 


5008 FOR F=l TO 9 


>tft 



5100 SCOREÏlF)=MID*lSTR$(SCORE(F)), : 

2) 

5206 CHï(F)=«Om(F)+STRING$(20-LEN( ; 

NOf»(F))-LEN(SCQREÎ(F)),".')+SCOftE* 

(F) 

5360 NEXT ) 



:;-788 



**************************** >ql< 
* * >EM< 

>ZN< 

>CF< 



* AFFICHAGE DES SCORES * 

* MODE * 

**♦*♦♦♦*♦** ******##******#* # 



5930 
5968 

6686 MODE 6:B0RDER 6:FQR 1=8 TÛ 15: . 
I!*: 1,6: NEXT: PAPER 6:PEN 4:F0R L=8 
TÛ 1:LQCATE 2,1+L:PRINT CHFSU35+L* 
2!CHR$(136+L*2i:NEXT:PEN 2:FDR L=8 
TO iîLDCATE 17, 1+L.s PR1NT CHRSU27+L 
*2)CHRî(128tL*2):NEXT:PEN 1:LQCATE 
5,1:PRINT"S C R E S" 

6616 LOCATE 5,2:PRINT" ": - 

A*=" TAPEZ [ESPACE] POUR REJOUE 

R ":FOR F=l TO 9;L0CATE î , 3+F*2 

:FEN F+5:PRINT CH»(F) :NEXT:INK 1,12 
:INK 2,14: INK 3,26:INK 4,16;F0R F=l 
TO 9:INK F+5,F+5,F+4;NEXT:SPEED IN 
K 2,2:WHILE INKEY$0"":WEND:F=FRE(" 

6620 WHILE INKEYtO" ":FOR F=l TO 9 > 
:D*=LEFT$(A(,1):C$=RI6HT«<A*,LEN(A* 
>-l):A$=C$+D$:B*=L£FT$(AÎ,26!:PEN 3 
.'LXATE 1,24:PRINT B*:INK F+5,INT(R 
NDUl+25)-H,INT(RND(l)*25)+l:PEN F+ 
5:L0CATE 1,3+F#2:PRINT CHÎ(F):NEXT: 
WEND:R=REMAIN(0):SOUND 135,8:GQT0 4 



29999 ■ 



'OR: 



30000 ON 5Q<2) GOSUB 32060:ON SQ(1) >Efl< 
GOSUB 33Ô80:ON SQ(4) 8QSUB 34060:R 
ETURN 

32666 C(2!=Cî2i+3:IF C(2)>126 THEN >LF< 
C(2)=1:R=REMAIN(0):EVERY 10 GOSUB 3 

0000 

32160 SOUND 2,VAL(MIDt(NÎ(2),C(2!,3 >MS< 
t),WL(MID$(D$(2),C(2!,3)),5:RETURN 

33000 C(1)=C(1)+3:IF CU)>153 THEN >UeK 

C(l!=l 

33100 SOUND l,VAL(HIB$(N$(l),Cilï,3 >WH< 

)),30,4:RETURN 

34680 C(4)=C(4)+3:IF C(4)>153 THEN >HH< 

C(4)=l 



34166 SOUND 4,VAL(MIDS(N*<4!,C(4),3 > 
)),30,4iRETURN 

59998 ' > 

59999 '- définir les IMC MODE 1 — > 
66666 IMC 6,13:M l,0iINK 2,12:1* > 

3,3:RETURN 
66098 ' >DA< 

6W99 '— toutes les INK = 9 >VB< 

601M FOR F=6 TO 15s IMC F,9:NEXT:RE 
7URN 

99 '- effacer #4 et entourer - >SC< 
60200 CLS#4:0RI6IN 33,33iDRAW y,4B: >QJ< 
DRflWR 576,0: DRAWR 0,-48: DRAUR -576, 
0:RETURN 

66298 ' >FC< 

66299 ' renplir une case >UD< 

66366 PEN PE:PAPER PA:L0CATE X,V:PR >TK< 
INT CHR*(CA)CHR*(CA+1):L0CATE X,Y+1 
:PRINT CHR*(CA+2)CHR*(CA+3):RETURN 
60398 ' 

66399 ' effacer une case ;*UE< 

66400 PEN 6:PAPER 2:F0R L=0 TO IsLO >KL< 
GATE X,Y+L:PRINT CHR*(207)CHRï(207) 
:NEXT:RETURN 

60498 ' ÎHE< 

66499 '-rien a moins de 3 cases ?- >BF< 

66500 FLAG=0:FOR X=XT-t TO XT+t STE >JM< 
P 3:F0R Y=YT-t TO YT+t STEP 3:FLAG= 
FLAG-1*(X=XT1 AND Y=YTI):NEXT Y,K:fi 
ETURN 

9B ' >JF< 

99 ' CHRCNQ >LG< 

66600 CH=CH+l*(CH>0):MN=CH\60:SC=Ch -N< 

-MN*60:If-SC<10 THEN SC$="0"+RI6HT* 

(STRi(SC),l> ELSE SC$=RISHT$iSTR$tS 

0,2) 

60616 IF ffKifl ThEN MN$= n 6"+RIGHTÎ! >NP< 

STR*(flN),H ELSE MNÏ=RIGHTÏ (STRUMN 

) 

20 CH*=i1N*+ +SC*:L0CATE#l,9,9: >UQ< 

PAPER fl,2:PEN#l,l:PRINT*l,CHRt(Z4> 
CH*DM(24):PAPEMl,«îQRIBIN 126,25 
6:DRAW 0,16:DRAWR 80,0: SOUND 2,16,2 
,3:RETURN 

60698 ' >KG< 

60699 'Vous êtes dans la citadelle >FH< 

60700 CL3#3:LQCATE#3,1,4:PRINT#3," >MP< 
VOUS ETES A"+SPACEïU5) + "L'ABRI DAN 
S"+SPACE*119)+"LA"+SPACE$(21H"CITA 
DELLE U +CHR$(7):S0UND 5,0,366,1, ,,31 
:FOR W=0 TO 2006: NEXT: RETURN 

60798 ' >LH< 

66799 -MESSAGE TOUCHES FLECHEES- ;Hj\ 
60B00 CLSS3 >QQ< 

60810 LQCATE#3,1,2:PRINT#3,FL*+SPAC >FR< 
E$(44>+"NQMBRE DE"+SPAC£S(16)+"C0UP 
S A"tSPACE*(18)+"J0UER :";CHR*<7):F 
=FRE(""):RETURN 

60960 ' >BY< 

66970 ' ***♦******♦********#*♦***** >KZ4 



60980 '* LABYRINTHES * >EA< 
60990 '*****»*♦*********♦*******« >|ffi< 
60995 ' >KG< 

61000 READ NM:FOR F=l TO NM:READ Zl >ÏH< 
MUR(Z)=liNEXT:RETURN 

61010 RESTORE 61615:G0T0 61006 >(1J< 

61015 DATA 49,11,21,31,41,51,61,71, >HP< 
22, 42, 62 , 33, 53, 34 , 44 , 54, 64, 25, 56, 27 
,47,67,18,28,38,48,58,68,112,142,18 
2, 113, 123, 153, 173, 183, 114, 144, 184, 1 

15. 125. 145. 155. 175. 185. 116. 146. 166, 
166,187 

61620 RESTORE 61025:GOTO 61060 ,>PK< 
61025 DATA 48,12,22,72,13,23,33,63, >VQ< 
73,14,24,34,44,54,64,74,15,25,35,55 
,65,75,16,26,66,76,17,77,131,141,15 
1, 161, 171, 142, 152, 162, 153, 145, 155, 1 

36. 146. 156. 166. 127. 137. 147. 157. 167, 
177 

61030 RESTORE 61635:60T0 61060 >RL-; 

61035 DATA 42,22,42,62,13,33,53,73, >Tfh 

24,44,64,15,35,55,75,26,46,66,17,37 

,57,77,121,141,161,132,152,172,123, 

143, 163, 134, 154, 174, 125, 145, 165, 136 

,156,176,127,147,167 

61046 RESTORE 61645:G0TO 61006 >UM< 

61645 DATA 46,21,41,61,42,23,63,24, >RT< 

44,64,25,45,65,26,66,47,28,48,68,11 

1,141, 151, 181, 122, 132, 162,172, 113, 1 

43, 153, 183, 124, 134, 164, 174,115, 145, 

155, 185, 126, 136, 166, 176, 117, 147, 157 

,187 

61650 RESTQRE 61655:G0T0 61000 >WN< 

61655 DATA 47,11,13,14,24,44,64,74, >VU< 

15,35,55,75,16,48,121,131,141,151,1 

61, 171, 122, 132, 142, 152, 162, 172, 133, 

143, 153, 163, 173, 135, 145, 155, 165, 175 

, 126, 136, 146, 156, 166, 176, 127, 137, 14 

7,157,167,177 

61060 RESTORE 61665:G0T0 61W6 >YP< 

61065 MA 46,12,22,32,42,52,62,72, >AV< 

14,24,34,44,54,64,74,16,26,36,46,56 

,66,76,19,38,58,121,141,161,132,152 

, 172, 123, 143, 163, 134, 154, 174, 125, 14 

5, 165, 136, 156, 176, 127, 147, 167, 177 

61070 RESTORE 61075:GOTO 61606 >{&< 

61075 DATA 26,11,31,51,71,22,42,62 >WW< 

13,33,53,73,24,44,64,15,35,55,75,2t. 

,46, 66,17, 37,57, 77,28, 4B, 68 

61080 RESTORE 61085:GOTO 61000 >CR< 

61085 DATA 28,111,131,151,171,122,1 >«X< 

42, 162, 182, 1 13, 133, 153, 173, 124, 144, 

164, 184, 1 15, 135, 155, 175, 126, 146, 166 

,186,117,137,157,177 

61096 RESTORE 61095:GOTQ 61600 >ET< 

61095 DATA 30,12,72,23,63,14,44,74, >TY< 

15,45,75,26,66,17,77,121,141,151,17 

1, 132, 162, 143, 153, 145, 155. 136, 166, 1 

27,147,157,177 

61100 RESTORE 61165: GOTO 61606 >MJ< 



61165 DATA 33,12,32,52,72,14,34,54, 

74,26,36,56,66,76,17,37,47,67,77,12 

2, 142, 162, 182, 114, 134, 154, 174, 135, 1 

65,126,156,127,147,177 

61116 RESTORE 6U15:SQTÛ 61666 >PK< 

61115 DATA 35,12,32,42,62,33,53,44, >AQ< 

15,35,55,65,75,26,66,17,37,57,77,15 

1, 171, 122,162, 123, 133, 153, 173, 124, 1 

44, 174, 135, 126, 146, 166, 137, 177 

61126 RESTORE 6U25:GQT0 61000 

61125 DATA 26,22,62,23,63,44,45,26, 

66,27,67,122,132,162,172,144,154,12 

6,136,166,176 

61136 RESTORE 61135:G0TQ 61006 

61135 DATA 44,12,22,42,52,62,23,33, ; 

63,73,34,44,45,55,16,26,56,66,27,37 

,47,67,77, 131, 171,122, 132,162, 172, 1 

23. 153. 163. 124. 144. 154. 174. 135. 145, 
175,126,136,166,176,127,167 
61140 RESTORE 61145sS0T0 61000 
61145 DATA 40,12,22,62,72,13,33,53, : 
73,14,44,74,15,25,35,45,55,65,75,16 
,26,36,46,56,66,76,17,27,37,47,57,6 
7,77,121,171,132,162,143,153,134,16 
4, 

61150 RESTORE 61155;G0TÛ 61660 ) 
61155 DATA 48,11,21,31,41,51,61,12, ; 
22,32,52,72,13,23,33,43,63,73,14,24 
,34,44,54,64,74,15,25,35,45,55,65,7 
5,16,26,46,56,66,76,17,37,47,57,67, 
77,28,38,48,58,68 

61160 RESTQRE 61165:G0TQ 61060 ; 
61165 MA 46,12,13,43,53,73,14,54, i 
64,74,15,65,75,16,66,76,77,111,121, 
131, 141,151,161, 171, 122, 132, 142,152 
, 162, 123, 124, 134, 144, 125, 135, 145, 15 
5, 136, 146, 156, 166, 176, 127, 137, 147, 1 
57,167,177,187 

61170 RESTORE 61175:G0T0 61000 
61175 DATA 41,12,13,63,73,14,15,16, i 
66,76,17,121,131,141,151,161,132,14 
2, 152, 162, 133, 143, 153, 163, 124, 134, 1 

44. 154. 164. 135. 145. 155. 165. 136. 146, 
156,166,127,137,147,157,167 
611B0 RESTORE 61 185: GOTO 61600 >ET< 
61185 DATA 26,12,52,43,34,74,15,65, >FY< 
46,37, 77, 141, 132, 172, 123, 163, 154, 13 
5,126,166,157 

61190 RESTORE 61 195: GOTO 61000 ) 
61195 DATA 34,12,32,52,62,13,53,63, > 
24,44,74,45,26,66,17,47,77,131,141, 
122, 152, 172, 124, 134, 154, 174, 184, 125 
,135,165,175,146,156,127,177 
61260 RESTORE 61265:G0T0 61666 > 
61265 DATA 48,11,31,51,71,22,32,42, ; 
52,62,33,43,53,44,45,36,46,56,27,37 
,47,57,67,18,39,58,78,112,122,172,1 
82, 123, 133, 163, 173, 124, 134, 144, 154, 
164, 174, 125, 135, 165, 175, 116, 126, 176 
,186, 
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UTILITAIRE 

MACHINE A ECRIRE 




Robert DUHAUBOIS 



Ce programme permet de piloter une imprimante et de transformer cette dernière en machine à écrire. 

Son maniement est très simple : au démarrage, chaque lettre frappée est reproduite à la fois sur l'écran et sur I 

Pour changer les paramètres d'impression (double-frappe, italique, souligné...), il faut appuyer sur <TAB> puis cl 

fre entre 1 et 9 afin d'accéder aux options indiquées en permanence au bas de l'écran (pas de validation le ret 

active est automatique). 

Pour écrire en diagonale (montée ou descente), il faut appuyer sur <CTRL + TAB> simultanément puis taper "1" f 

descendante, 2 ' pour l'écriture montante ou <ESPACE> pour l'horizontale (toujours sans validation! La flèche e 

indique le sens d'écriture. 

Ce programme a été testé sur DMP-2000. 

Le symbole "— " s'obtient en tapant CTRL (CONTROLI + "I". 




1 




12Ô ENV 1,15,-1,4 


>EÛ< 


L.'iih'n]-4 




130 ENV 2,1,0, 10, 15,-1, o 


>NEC 




140 ORIGIN 326,100 


>(fi 




150 DRAWR 200,0,1 


m< 






160 DRAWR Ô.50 


>RH< 






17Ô DRAWR -400.0 


>TJ< 


19 REM ********************** 


>m< 


130 DRAWR 0,-50 


>TK< 


20 REM programme "ECRIRE" 


m.\ 


190 DRAWR 200,0 


>ULs 


30 REM page écran de 


>GD< 


200 MQVER 200,50 


>CC< 


40 REM la machine a écrire 


>m 


210 DRAWR -50,75 


,ED-, 


50 REM 6 r.duhaubois 


>w< 


220 DRAWR -300,0 


■MF, 


60 REM ********************** 


;iffi'. 


230 DRAWR -50,-75 


.CF 


78 CLG 


>VB< 


240 ORIGIN 120,150 


>EG< 


B0 CLS 


>JJt 


250 FOR 1=1 TQ 10 


>XH< 


« MODE 


>kk; 


260 ORIGIN 120.150 


>GJ< 


100 NINDOW «1,1,20,23,25 


>KB< 


270 MER 40*i,0:DRAW 50+30*1,75 


m< 


110 BORDER 12:11*: 0,12:INK 1,8: INK >HC< 


260 MEXT 


>PU 


14,12,4 




290 ORIGIN 120.150 


.KM; 



300 MOVER 15.20:DRAWR 375.0 >FD( 

310 MOVER -15.20:DRAWR -345.0 >BE( 

320 MOYER 15,20:DR*R 315.0 ;BF\ 

336 ORIGIN 170,225 >NG< 

340 ORAHR 0,50: DRAWR 300.0:DRAWR 0, >GH< 

-50:FLOTR tf,50:DRAWR -5,Î0:DRAWR -2 

90,0:DRAWR -5,-10 

350 REM *************** >¥J< 

360 REM chariot >GK< 

370 REM *************** >ftL< 

380 FOR h=l T0 22:0RIGIN 210,280 >HH< 

390 PLOTR -5*h+5,10,l:DRAWR -20,0:D Mi 

RAWR 9,38; DRAW 3».fcDRMR 30,56:D 

RAHR 5,0:DRAWR -30,-50 

400 DRAWR -5,0:DRAWR O,-30:DRAWR -3 )ME< 

9O.0 

410 PLQTR 50.30:DRAWR 210,0,0:PLOT >DF< 

R -210,-30:DRAWR 0,75,4:DRAWR 200.0 

: DRAWR 0,-75 

420 DRAWR -2O0,Ô:PLOTR 200.O:DRAWR >DG< 

10,O,1:DRAWR 0.8O,4:DRAWR -200.O:DR 

AWR 0,-10 

430 x=INT(RND*9+6!:v=INT(RND*3)+13 ,>EH< 

440 PRINÏ mi(22!:CHRÎ(l]: >XJ< 

450 L0CATE x,y:PEN 6:PRINT CHRt(160 >&X 

) 

46Ô SOUND 1,1500,7,7,0,0,1 >CL< 

470 L0CATE 10,7:PEN 14:PRINT CHRÏ(2 jJM< 

44] 

480 ORIGIN 210.280:FLuTR-5*h,0,0 >VNi 

490 IF h=22 THEN 580 >EP< 

5O0 PLDIR 5,1O,0:DRAWR -20.0:DRAWR >KF< 

0,3O:DRAMR 390,0:DRAWR 30.5O:DRAWR 

5,0:DRAWR -30,-50 

510 DRAWR' -5,0:DRAWfi Ô,-30:DRAWR -3 >YG< 

90,0 

520 PLOTR 5O,30:DRAWR 210,0,0:PLÛT ÏBH< 

R -210, -30: DRAWR 0,75,0:DRAWR 200,0 

: DRAWR «,-75 



536 DRAWR -200,0:PLOTR 200,0:DRAWR >AJ< 

10,0,0:DR*R 0,80,à:DRAWR -200,0:DR 

AMR 0,-19 

540 LOCflTE x,y:PEN 0:PfiINT CHR$(16G >¥K< 

) 

550 LQCATE ie,7:PEN 14:PRINT CHR$<2 >BL< 

02! 

560 READ a$:PRINT#l, a$; >W|< 

570 NEXT >RN < 

580 SOUND 2,20,-1,15,1 >RP< 

590 DATA M,ft,C,H,I,N,E,.,A,. T E,C,R, >PQ< 

I,fl,E, . ,PAR, ROBERT, . .DUHAUBOIS 

600 REH ************************** >ye< 

610 REH lancement du 2eme programme >DH< 

620 REil sauvegarde sous le nom: >EJ< 

630 REM "MACHECR" >FK< 

640 REH ************************** >cl< 

650 RUN "MACHECR >PM< 



100 REM ******♦******»#*#*****♦«# >TB< 

lia REM * - machine a écrire - * >DC< 

* horizontale diagonale * 

120 REM * * >Z[K 

130 REH * r. DUHAUBOIS août 1986 * ;ZE< 

140 REH ************************** ;!(F< 

150 HODE 2 >L6; 

160 INK 1,0 >NH< 

170 INK 0,'0 >NJ< 

180 BORDER 15,16 >XK< 

190 ENV 2,1,8,10,15,-1,6 >VL< 

200 ENV 1,12,-1,4 >flC< 

210 PEN 1 >KD< 

220 FOR 1=1 TO 80:LOCATE I,1:PRINT >ME<: 
CHR$(127):N£!iT 

230 FOR 1=1 TO 30:LOCATE I,19:PRINT >ftF< 
CHR*U27i;ÎOT 

240 FOR 1=1 TQ 25:L0CATE 1,I:PRINT >CG< 
CHRJ;127)::NEXT 

250 FOR 1=1 TO 80:LOCATE I.25:PRINT >NH< 
CHRÎ(127)i:NEAT 

260 FOR 1=1 TO 25:LOCATE SO.IiPRINT >PJ< 
CHRï(127);:NEXT 

270 CLEAR >&;< 

230 PEN 1 ;TL< 

290 SYMBOL AFTER 128 >AH< 

300 GOSUB 2550 >ZD< 

310 imp=a:cap=0:mem=l:iï=CHRK24) >BE< 

320 M 0,13: INK 1,0 >DF< 

330 REH ************************** >V(3< 

!4ê REM ECRAN >EH< 

350 REM *****♦*♦*******»*******#** ^.ftj< 

'M WINDÛW #1,2,79,20,21:PAPER #1,1 >TK< 
:CLS#1:PEN#1,0 



370 WIND0W#2,3, 68, 23,23: >J£L< 
380 WIWX)W#3,3,65, 24,24 >KM< 
390 HINDQW #5,72,79,23,24 >BN< 
400 LOCATE #l,5,2:PRINTtl, "colonne >PE< 
: 1 ligne : 1 <TA6> sélection < 
CTRL+TAB> pente" 

♦10 WINDOW #1,2,79,21,21 >ZF< 
420 ORIGIN 5B0,33:DRAWR -4,6.1:0RAW >EG< 
R 25,-4:DRAWR 0,6:DRAWR Ï0,-8:DRAWR 

-19,-8:DRAWR 0,6:DRAWR -25,-4:DRAW 
ft 4,o 

430 WINDOW 3,78,3,18 >RH< 

(40 pente =35.8:b=l ;>yj< 

450 :=1 >jk< 

460 WINDOW #4,1,80,1,1:LQCATE #4,18 >YL< 
, lïPRINT #4, "MACHINE A 
ECRIRE r.Duhaubois S1986 " 
470 ORIGIN 0,0:PLQT 6,381, 1: DRAWR 6 >ZM< 
?3,0:DRAWR 0,-273:DRAWR -623,0:DRAW 
R 0,273 
480 PLOTR 624,-3:DRAWR 0,-26a:DRAWR >NN< 

-622,0:DRAWR 6,-l:DRAWR 617,i):DRAW 
R 0,26ù:PLOTfi 1,-3:DRAWR G,-264:DRA 
WR -614,0:PLOTR 6,-l:DRAWR 608,0:DR 
AWR B,264:ÛRAWR 1,-3:DRAWR 0,-261 

490 ORIGIN 0,0:PLQT 8.55:DRAWR 552, W\ 

0:DRAWR 0,-41:DRAWfi -552,0,0:ÛRAWR 

0,-l:DRAWR 552,0,0:DRAWR 0,-l,l:DflA 

WR -552,Ô:DRAWR y,-l:DRAWR 552,0:ÛR 

AWR 0,-i,l:DRAWR -552, 0,1 : DRAWR 0,4 

5 

500 PLQTfi 553,-3 :DRAWR 0,-43:DRhWR >LF< 

-550,0:PLOTR 3,-l:DRAWR 548,0:DflAW 
R 0,43 

51B PLOTR -555,10:DRAWR o24,â >ZG*. 
520 PLOTR 0,-2:DfiAWR -624,0 :FLQTR >HH< 
0,3:DRAWR 622,0:PLOTR -8, 1 : DRAWR -6 
05,0,0 

530 DRAWR 0,25:DRAWR 605,0:DRAWR \\ >KJ< 
-25 
540 PLÛTR 13,-8:DRAWR 0,-45, 1 : DRAWR >UK< 

-71,0:DRAWR 0,45:DRAWR 71,0 
550 PLOTR l.-4:DRAWR 0,-42:DRAWR -6 >XL< 
7,0:PLOTR 68,0:DftAWR 0,41:DRAWfi -1, 
l:DRAWfi 0,-41:PLOTR -1.1:DRAWR Û.41 



560 PLOTR -; 
,0,0: DRAWR ( 



ÔiBRAHR y,-40:PLOTR -1 >AM< 
40 :PLOTR -1,0:DRAWR 



570 DRAWR -66,0,1:PLOTR 0,1:DRAWR 6 >PN<. 
6,0:PLOTR 0,1,0:DRAWR -66,0:DRAWfi 6 
9,0:DRAWR 0,41,l:PLOTfi -1,0:DRAWR 
,43 

580 ORIGIN 0,383:FOR 1=0 TO 64S STE HJfH 
P 3:PL0T I,0,1:NEXT 

590 ORIGIN 0,56:FOR 1=0 TO 640 STEP >PQ< 
3:PL0Î I,0,1:NEXT 
600 REM ***♦♦♦#**«*#********* >VG< 



610 REM boucle curseur 
620 REH *******#**#********** 
630 EVERÏ 20, 1 GOSUB 4630 ; 
640 ORIGIN 1,1:DRAWR 0,398:DRAWfi 13 : 
0,0:PLOTR 440,0:DRAWR 6fi,0:DRAWR 0, 
-398: DRAWR -638,0 

650 CLS#2:PRINT#2, "1 standard 2 db ; 
Frappe 3' gras 4 gual courrier 5 gr- 
as souligne " 

660 GOSUB 4370 ; 

670 PRINTI3, "6 italique 7 gras db ) 
frappe 8 gras db trappe soûl 9 sou 
ligne" 

680 IF start=0 THEN start=l:GQSUB J 
4430: GOTO G80 

690 IF gras=l THEN ;;=me&:xx=0:xc=xc ; 
+y:gras=0:t=meii!:GûTQ 710 
700 IF soul=l THEN LOCATE t+l,::FRI > 
NT CHR$(22):CHR$(0); U "::LOCATE t+1 

710 IF soul=2 THEN LDCATE t+l,z:PR[ > 
NT CHRÎ(22):CHRÏ(0):" \:LÛCATE t-f 

7i» xK=0:«c=xc+y:gra5=0 ; 

730 REH ************************** >CL< 

740 REH MODULE DE CHOIX >GM< 
DES CARACTERES 

750 REM *************m****+##**t 

760 soul=â:sl=0: b$=Ifêïï$:IF bï="" 
THEN 760 

770 b=VAL(t>ÎJ :IF b<l OR b>9 THEN 

760 

780 CLS#2:PRINT#2, "1 standard 2 db 
Frappe 3 gras 4 quai courrier 5 gr 

as souligne " 

790 PRINTft3, "6 italique 7 gras db 

frappe 8 gras db frappe sduI 9 sou 

ligne" 

B00 ON b GOTO 880,840,920,960,1000 : 

, 1040, 1OB0, 1090,1130,1140 

810 REM ************************** ; 

820 REH double frappe sesc "E"> 

830 REM ***********#*#♦»*#**#***»♦ ^DM< 

B40 PR1NT #imp,CHR$(27!:"E ,l ;:L0CATE >FN< 
#2,1,1:PRINT#2, "1 standard": iî ; " 

2 db frappe"; i*;" 3 gras 4 gual cou 
'ier 5 gras souligne " ;EOTO 1140 
i0 REM ****#*»»#***#******#*#t#*4 >FP< 
■0 REM mode standard <esc "P"> >PQ< 
'0 REM *****##**********m***m >HR< 

88& PAINT #mp,CHRÏ(27)i' 1 P";:PRINT# >LT< 
"ii*:"l standard"; ii; " 2 db fra 

ppe 3 gras 4 quai courrier 5 gras s 

gne ":GQTO 1140 
B90 REH ************************** } 

ÏO0 REM mode gras ;esc "W"+n ; 
910 REM ************************** ) 

920 PAINT #imp,CHR*(27):"W"iCHR$(l) ) 

i:PRINT#2, "1 standard 2 db frappe" 



:i$; u 3 gras"; iï; u 4 quai courrier 
5 gras souligne ":mea=x:x=>;\2:xK=l: 
gras=l:GOTQ 114» 

936 REM *♦»****♦*#***♦#***»»*#***# >EN< 
948 RE» qualité courrier <esc "("> >JP< 
956 REM *t#mt**#****#*m»»****t >ëû< 
968 PRINT ttiaip,CHR*(27) j " ("; :FRINT# >RR< 
2, "1 standard 2 db trappe!. gras"fi 
i;" 4 quai courrier"?!*;" 5 gras so 
uligne ":G01Û 1146 

970 REH «M*********************** /JT< 
986 REH mode gras <esc H W"+n >CU< 

et souligne <esc "-1"> 
990 REH ************************** >LV< 
1880 PfiINT #ifflp,CHFÎ$t27ï;^CHR$il >MB< 
);CHR$!27);"-1";:PRINT#2, "1 standa 
rd 2 db frappe 3 gras 4 quai, courr 
ier";i*;" 5 gras sauligne":iî;:fflem= 
x:)!=x\2:xx=l:gras=l:soul=2!EOT0 114 


1010 REM ************************* >(\C< 
1026 REH mode alterne = italique >YD< 

<esc "4"> 
1030 REM ***#***♦*#****##***#***** >CE< 
1040 PRINT #i«p,CHR$(27);"4";:PRIHT >AF< 
83, " u ; i * ; " 6 italique "îiî;" 7 gra 
s db frappe 8 gras db frappe soûl 9 

souligne":GOTD 1140 

1050 REM m********************** >ES< 
1060 REM mode gras double frappe >RH< 
souligne ^esc "!" 
+chr*(48)+esc "-1"> 
1070 REM ****♦#***♦#*****#******** >SJ< 
1080 PRINT #iap,CHR$(27);"!";CHR*(4 W< 
B);:PRINT#3, "6 italique"; iJ;" 7 gr 
as db frappe ";if;" 8 gras db frapp 
e soiil 9 SQuligne 1 ':mem=s:X=X\2:AX=l 
:gras=l:BÛTO 1140 

1090 PRINT #imp,CHR$L27);"!";CHR$(4 >GU 
8);CHR$(27);"-l";:PRINTIt3, "6 itali 
que 7 gras db frappe ";iï:" 8 gras 
db frappe soûl "jiij*? soûl igné"! me 
n=m=s\2;5aul=2igras=l:GDTQ 1140 
1100 REH ***»*♦*****♦************# >flC< 

1110 REM standard souligne >UD< 
<esc u -l"> 

1120 REM #**+*#***####**+******#** >CE< 
1130 PRINT #i«p,CHR$<27):"-r;:PRIN >¥F< 

1*3, "6 italique 7 gras db frappe 

S gras db frappe soûl ";i$;"9 souli 

qne";if:soul=l 

1140 BORDER 13:y=0 >HG< 

1150 IF INKEY(70)=0 THEN G05UB 434 



.^■- 



1160 REM 

1170 REM SAISIE DE LA FRAPPE >NK< 

11B0 REM ***t»#m#**m********** >Jt< 

1190 EI:a$=INKEYl >WM< 

1200 IF INKEY(6B!=128 THEN GOTO 450 >QD< 

26 



1210 IF scroll=2 THEN zz=;-l EL5E I >SE< 
F scroll=l THEN zz=z*l ELSE zx=z 
1220 IF zz=0 THEN zï=l >DF< 

1230 IF soul=l AND sl=0 THEN PRINT >PG< 
CHRt ( 22) ; CHRï U ) ; : LQCATE t+l,zz:PRI 
NT "J';:sl=l:LOCATE t+l,::6QT0 1250 

1240 IF soul=2 AND sl=0 THEN PRINT Mi 

CHR*(22);CHR$(1);:LQCATE t+l,zz:PRI 

NT "_"ï:sl=l:LOCftTE t+l,z:G0TQ 125 



1250 IF a$="" THEN 1150 >UJ< 

iz60 di >m 

1270 IF soul=l AND sl=l THEN PfiINT >UL< 
CHRJM22);CHR$(1);:L0CATE t+l,z::PRI 
NT "_";:L0CATE t+l,z 
1280 IF soul=2 AND sl=l THEN PRINT >ZM< 
CHRÎ(22);CHR$U);:LÛCATE t+l,zz:PRI 
NT D _";:L0CATE t+l,z 
1290 IF a$=CHR*(13> THEN 1560 m< 
1300 IF at="— !' THEN 1650 >EEi 
1318 REM y=y+xx >KF- 

1320 x=x+l >YGC 

1330 xc=xc+l >VH< 

1340 IF x>68 OR t>68 THEN 1600 >U\ 
1350 IF s>77 OR t>75 THEN 1520 >EK< 
1360 IF scroll=l THEN z=z+l ELSE IF ;KL< 

scroll=2 THEN z=z-l 

1370 IF z=0 THEN z=l:L0CATE MîPffI >DM< 
NT ChRIUt) 
1380 IF :>15 THEN LOCATE 1.17:PRINT >GN< 

CHRÎ(13!;;z=15:S0UND 2,20,-1,15,1 
1390 IF a$=CHRÎ(32i THEN SOUND 2,35 >NF< 
,-1,15,1 

1400 REM *****♦#*******#*******#** >DF< 
141Ô REM envoi des codes impression >N5'- 

1420 REH ************************* ;-FH< 
1430 PRINT #imp , CHRt Î275 : " 1 " ; CHftt i k >DJ< 
); 

1440 PRINT ttimp,CHRÎ(27);",j";CHR$ip >W< 
ente); 

1450 PRINT ttimp.aï >XL< 

1460 DI >ZM< 

1470 IF gras=l THEN GQSUB 1680:LQCA >LN< 
TE (ïEin+1,:: PRINT aï;:mem=fne(n+2:G0T0 
1490 
14B0 LOCATE t+l,z:PRINT al; >6P< 
i490 IF gras =1 THEN t=mem tuât t-s ,Sjv 

1500 LOCATE #l,14,l:PRINT#l,ttI:L0C >m 

ATE #l,27,lîPRINT #l,z 

1510 El: GOTO 1190 >VH< 

1520 x=l:sc=l:Y=0:z=z+l:HEM=0:t=0:P >BJ< 

RINT #8, CHR$(13) 

153Ô SOUND 2,20,-1,15,1 »PK< 

1540 PRINT >$Li 

1550 GOTO 1360 )FM<, 



1560 ;:=0:xc=l:Y=0:z=z+l:T=0:MEM=0:P > 
RINT #8, CHRS113) 

1570 SOUND 2,20,-1,15,1 > 
1580 PRINT > 

1590 LQCATE tU,14,l:PRINTtll,t+l:LQC > 
ATE 11,27, 1:P«INT fia: GOTO 1190 
1600 SOUND 1,150-x > 

1610 GOTO 1350 ) 

1620 REM ************************* > 
1630 REM initialisation imprimante S 

avant changement de frappe 
1640 REM ************************* } 
1650 PRINT #imp,CHRÎ!27>:"e"; > 
1660 BORDER 13,1 ) 

1670 GOTO 650 > 

1680 IF ASC(A$)=32 THEN fit»' ":RET ; 
URN 

1690 IF ASC!AÎ!=13 THEN X=0;T=0:ME> 
M=0::RETURN 

1700 REM ************************* > 
1710 REH SAISIE DES CARACTERE5 > 

ELARGIS 
1720 REM «m*****»**.**********»* > 
1730 IF ASC(aï)/64 AND ASCla$K91 G > 
0T0 17B9 

1740 IF A3C(aS)>47 AND A5C(a$K5B T >JN< 
HEN GOTD 1790 
1750 IF ASC!a$)>96 AND ASCta$M.123 >AP< 
THEN 60TQ 1800 

1760 at=a*+".":RETURN >QQ< 

1770 RETURN >XR< 

1780 ON ASCiaïi-64 GOTO 1840,1850,1 >JT< 
B60, 1S70, 1380, 1B90. 1900, 1910, 1920, 1 
930, 1940, 1950, i960, 1970, 1980, 1990, 2 

',2020,2030,2040,2050,2060.2 

i,2090 

1790 ON ASC(a$!-47 GOTO 2130,2140,2 >HH 
150.2160,2170,2180,2190,2200,2210,2 
220 

1B0Ô ON ASCia$)-96 GDTO 2260,2270,2 >LK< 
280,2290,2300,2310.2320,2330.2340.2 
350.2360,2370.2380,2390.2400.2410,2 
420,2430,2440,2450,2460,2470,2460,2 
490,2500,2510 

1810 REH ************************* >JL< 
1820 REM MAJUSCULES >ZM< 

1830 REH ************************* >LN< 
1840 aî=al$:RETURN >XP< 

1850 at=blt:RETLJRN >ZQ< 

1B60 al=Elî:RETURN >BR< 

1870 at=dlî:RETURN >DT< 

1880 aï=elt:RETURN >FU< 

1890 a*=flï:RETURN > 

190y aï=gli:fiETURN >ALÎ 

1910 a$=hlt: RETURN >CM< 

1920 aï=il*:RETURN ;EN< 

1930 a$=jlî:RETURN >BP< 

1940 aï=kl*:RETURN >J0< 

1950 a*=Uî:RETURN >LR< 



i960 at=nH:RETURN 


,NT; 


1970 a*=nl$:RETURN 


-OU- 


i960 aï=oH:RETURN 


>TV< 


1996 at=pl*!REÎUfiN 


,v*. 


2960 aï=ql$!fiETURN 


>CC< 


2810 a$=rl$:RETURN 


m 


2020 a$=5l*:RETURN 


>GE< 


2830 a*=tl$:RETURN 


>JF< 


2640 a*=ul*:RETURN 


>LG< 


2050 aï=vl$:RETURN 


•NH< 


2060 a$=wi*;RETURN 


>UJ< 


2070 aï=xU:RETURN 


>TK< 


20B0 aS=ylî:RETURN 


>VL< 


2090 a*=:lï:RETURN 


>m 


2100 REH m*************.*** 


>m< 


2110 REH CHIFFRES 


■CE, 


2120 REM *+**♦************** 


: EF: 


2130 aî=:ero$:RETURN 


>m 


2140 a*=un*:RETURN 


H1H< 


2150 at=deu*S:RETURN 


>EJ< 


216Ô at=trois$:RETURN 


>EK<. 


2170 at=quat$:RETURN 


Î1L, 


2180 aî=cinq$:RETURN 


>WM< 


2190 a$=5i;<$:RETURN 


>MN< 


2200 aî=sept$:RETURN 


>S£< 


2210 a$=huit*:RETURN 


>FF< 


2220 al=nEQ+t:RETURN 


>UG< 


2230 REM ****#♦******♦****+»* 


>CH< 


2240 REM MINUSCULES 


>jj ; ; 


2250 REM **»*m##mm#t*** 


M< 


2260 a*=a2ï:RETURN 


>VL< 


2270 a*=b2ï:RETURN 


. m 


2280 aï=c2$:RETURN 


>m< 


2290 a*=d2$:RETUftN 


>m 


2300 a$=e2$:RETURN 


>UR 


2310 a*=f2*:RETURN 


>m 


2320 a»=q2$:RETURN 


m< 


2330 a$=h2$:RETURN 


m< 


2340 aï=i2t:RETURN 


>m. 


2350 a*=j2$:RETUfiN 


MX 


2360 a*=k2*:RETURN 


BH< 


2370 a*=12$:R£TURN 


>M 


23B0 a*=m2i:RETURN 


)\J- 


239y a*=n2$:RETURN 


Ifj: 


240Ô aï=o2ï:RETURN 


>FG< 


2410 al=p2$:RETtJRN 


>m< 


2420 a*=q2ï:RETURN 


A.], 


2430 a*=r2ï:RETURN 


>m< 


2440 aï= 5 2î:RETURN 


*H 


2450 a*=t2$:RETURN 


X» 


2460 aï=u2»:RETURN 


m 


2470 a*=v2*:RETURN 


>w< 


2480 a*=w2*;RETURN 


>Y8< 


2490 aï=x2ï:RETURN 


>Mi 


2500 a$=y2$:RETURN 


>m 


2510 a*=:2ï:RETURN 


.. w< 


2520 REM ********+*********#*+**** 


>m 


2530 REM REDEFINITION DES 


«.< 


CARACTERES ELARGIS 





2540 REM *********+******♦#***#*## >KM< 

2550 SYMBOL 129.3,15,60,60,63,60,60 >LN< 

i0 

2560 SYMBOL 130,192,248,60,60,252,6 >XP< 

0,60,0 

257w al*=CHR$(129}+CHR$(138):REM Am >PQ< 

ajus 

2560 SYMBOL 131,255,60,60,63,60,60, >ER< 

255,0 

2590 SYMBOL 132,240,60,60,240,60,60 >TT< 

,248,0 

2600 bl*=CHR$il31)+CHR$(132):REM B >XJ< 
maj 

2610 svmbol 133,15,60,240,240,240,6 >lkx 
0,15,0 

2620 SYMBOL 134,240,60,0,0,0,60,246 MX 

2630 cl*=CHR$H33)+CHRï(134);REM C m< 

maj 

26+0 SYMBOL 135,255,60,60,60,60.60, >W< 

255,0 

2650 SVMBOL 136.192,240,60,60,60,24 >Jp< 

0,192,0 

2660 dl$=€HR$(i35;+CKRt<136):REM D >RQ< 

«ai 

2670 SVMBOL 137,252,12,192,192,192, >Wft< 

12,252.0 

2680 elî=CHRtll31)+CHR*(137;:REM E >TT< 

maj 

2696 SYMBOL 138,252,12,192,192,192. >EU< 

0.0,0 

2700 + lï=CHRSU31ï+CHR$il38):REM F m< 



maj 

2710 SVMBOL 139, 15,68, 240,240, 240,2 >ZL-" 

40,63,0 

2720 SVMBOL 146,240,60,9,0,252.60,2 >AM< 

52,0 

2730 gU=CHR$il39)+CHR*U46):REM G >Wh 

maj 

2740 SYMBDL 141,68,60,66,63,60,60,6 >LP<' 

0.0 

2750 SYMBDL 142,68. 60,60,252,60,60, >QQ< 

60,0 

2760 hl*=CHR*(141KCHR$il42):REM H >VR-.. 

maj 

277y SVMBOL 143,63,3,3,3,3,3,63,0 >TT< 

2780 SVMBOL 144,252,192,192,192,192 >VU< 

,192,252,8 

2790 il*=CHR$(143)+CHRÎ<144J:RE!1 I >EV< 

«aj 

2660 SYMBOL 145.0,0,0.0,240,240,63, >SL< 

8 

2010 SYMBOL 146,252,240,240,240,240 >LM< 

,240,192,0 

2820 jlî=CHfitU45)+CHR$(146):REM J ;EN( 

naj 

2830 SYMBOL 147, 252, 60, 60, 63, 60.60, >2P< 

252,0 

2348 SYMBOL 148,60,60,240,192,240,6 >EGK 



0,60,0 

2856 kl$=CKR$(147)+CHR$ii48);REHK >PR< 

aaj 

2860 SYMBOL 149,8,0,0,0,12,60,252,0 >HT< 

2870 ll*=CHft$<135)+CHR$U49):R£M L >RU< 
aaj 

28B0 SYMBOL 158,240,252,255,255,243 >YV< 
,240,240,0 

2898 SYMBDL 151.60,252,252,252,60,6 >W 
0,68,8 

2900flil$=CHR*U50HCHR*il5i;:REM H >BH\ 
maj 

2910 SYMBOL 152,249.252.255,243.240 MX 
,240,248,0 

2926 SYMBOL 153,60,60,60.252,252,60 >XFK 
,60,0 

2930 nlî=£HR(<152HCHRï(153>:REM H >LGK 
maj 

2940 Qlt=CHRIil33)+CHRi(136): REM D M\ 
maj 

2950 SVMBOL 154,240,60,60,192,0,0,0 >AT< 
■ & 

2960 pl*=W»(131)+CH»U54): REM P >RU< 
maj 

2970 SVMBOL 156,15,60,246,240,243,2 >KV< 
40,63,0 

2980 SYMBOL 157,192.248,60,60.204,2 >MW< 
40,68,0 

2990 ql*<Hfitu56j+CriRtUD7): REM û >tu< 
maj 

3000 SVMBOL 158,240.60,60.240,249,6 >JD< 
0,12,0 

3016 rl*=CHR$il3li+CHR*U5BI: REM R >LE< 
maj 

3020 SYMBOL 159,15,60,68,15.0,60.15 >AF< 
.0 

3630 SVMBOL 160,246,60,0,240,60,60, >2fi< 
240,0 

3046 5l$=CHRS(159)+CHfiïll60): REM S >VH< 
maj 

3050 SYMBOL 161,63,51,3,3,3.3,15,0 >LR 
3060 SYMBOL 162.252,204,192.192.192 >W< 
,192,240,6 

3670 tlï=CHRt(161)+CHR$Sl62): REM T >VL< 
maj 
3068 SVMBOL 163,60,60,60,66,60,60,1 jKM< 
5,0 

3090 SYMBOL 164,60,68,68,60.60,60,2 >PN< 
46,0 

3100 ulî=CHRî(163i+CHR$(164): REM U >VE< 
maj 
3110 SYMBOL 165,60,68,60,60,60,15,0 >KF< 
.0 

3120 SYMBOL 166.60,60.60,66,60.248, >U6< 
192,0 

3136 vl$=CHR*tl65)+CHR$(166i: REM V >EH< 
aaj 
3140 SYMBOL 167,240,240,248.243,255 >PJ< 



,252,24y,y 

3158 SYMBOL 168,66.60,66,60,252,252 > 



3166 wiS=CHR$U67)+CHR$;i68i: REM U >PU 



3179 SYMBOL 169, 246,68, 15,15,68,246 > 

,192,8 

3186 SYMBOL 176,66,246,192,192,246, > 

66,66,0 

3190 «l$=CHRÎ(169)+CHR$il76f: REM t > 

i 

) SYMBOL 171,60,60,66,15,3,3,15, > 

3210 SYMBOL 172,60,60,66,240,192,19 > 

2,246,0 

3226 yl$=CHR$(171)+CHRÏU72): REM Y > 

sa j 
3236 SYMBOL 173,255,240,192,3,15,60 > 
,255,0 

3246 SYMBOL 174,252,66,246,192,12,6 > 
6,252,0 
3250 :l*=CHR$!173i+CHRî(174): REM l > 

mai 

3260 SYMBOL 175,8, 0,63, 0,63. 243. 66, ï 
6 

3270 SYMBOL 176,6,0,192,246,246,240 > 
,66,6 

3280 a2$=CHR$(175)+CHR$(176) > 

3290 SYMBOL 177,252,252,63,60,60,66 } 
,207,0 

3306 SYMBOL 176,0,6,240,66,60,66,24 i 
0,6 

3310 b2*=CHRÎ(177)+CHRÏ(17B) ) 

3320 SYMBOL 179,6,0,15,60,66,60,15. > 
6 

3330 SYMBOL 186.0,0,240,60,6,60,240 > 
.0 
3340 c2t=CHR$il79)+CHRÎ(186i :REM c > 

min 

3356 SYMBOL 181,3,0,15,60,60,68,15, > 
6 

3366 SYMBOL 182,246,240,240.246,240 > 
,246,60,6 

3370 d2$=CHR$(181)+CHfiî(lB2/ > 

3386 SYMBOL 183,0,6,15.60,03,66,15. ï 
t 

5398 SYMBOL 184,0,0.240,66.252.6,24 > 
),6 
Ï400 e2$=CHRÎE183)+CHRÎiie4): REM e S 

min 

3416 SYMBOL 185,3,15,15,63,15,15,63 > 
.0 

3426 SYMBOL 186,246,66,0,192,6,0,19 > 
2,0 

3436 f 2Ï=CHR* 1 185) +CHRÎ ( 186Ï > 

3440 SYMBOL 187,0,6,15,60,60,15,0,6 > 



), 252. 66, 60, 252. t -W 



3460 g2*=CHR* ( 1 87 f +CHRt ( 188 i 

3470 SYMBOL 189,252,60,66,63,61 



3489 SYMBOL 190,6,6,240,60,60,60,66 >ZR< 

,0 

3496 h2$=CHfi$(189)+CHR$(198) >PT< 

3566 SYMBOL 191,3,0,15,3,3,3,15,0 >CJ< 

3516 SYMBOL 192, 192,6, 192,192, 192,1 >ÏK< 

92,246,0 

3520 i2î=CHR*(i91;+CHRÏ(192) >DL< 

3530 SYMBOL 193,6,0,6,0,6.60,60,15 >DH< 

3548 SYMBOL 194,12,0,252,66,66,66,6 >VN< 

6,246 

3556 j2*=CHR$il93)+CHRÎ(194) >MP\ 

3566 SYMBOL 195,252,66,60,66,63,66, >HO< 

252,6 

3570 SYMBOL 196,0,0,60,240,192,240. >RR< 

60.6 

3588 t:2i<HR$(195i+CHRÏ1196) >WT< 

3596 SYMBOL 197,15,3,3,3,3,3,15,6 >XU< 

3660 SYMBOL 198.192,192,192,192,192 >HK< 

,192,248,6 

3616 12$=CHRÎU97)+CHRÎ(198) >VL< 

3628 SYMBOL 199,6,0.68,255.243,243. >ZK< 

246.8 

3636 SYMBOL 200.0.6,246,252,66,06,6 >TN< 

8,0 

3648 m2t=CHR* ( 199) +CHR$ (266) > JP< 

3650 SYMBOL 261,0,0.243,60,68,66,66 >UB< 

,8 

3666 SYMBOL 262,6,0,192,60,60,60,60 >ZR< 

.8 

3676 n2ÎOHR$(261)+CHR$i202> >YT< 

3688 o2ï=CHRÎil79)+CHRÎÎ1781 >HK 

3698 SYMBOL 203,6,6,243.66,60,63,68 >W< 

,255 

3700 SÏMBOL 264,0,6.240,60,66,60.24 ;RL-, 

6,0 

3716 p2î=CHRÎ(203i+CHRt(204) >ZM< 

3726 SYMBOL 265,0,0,63,240.246,63,0 >EN< 

,63 

3736 SYMBOL 266,6,0.66.240,240,240, >QP< 

240,252 

3748 q2$=CHRIi205)+CHRÏ(206! >H8< 

3750 SYMBOL 207,0,0,243,66,60,60.25 >KR< 



3766 SYMBOL 208,6.0.192,240,0,0,0,0 >HT< 



3778 r2«=CHRï(207)+CHRI(208) >fili< 
3780 SYMBOL 269,0,6.15,66,15,0,63,0 >WV< 



3798 SYMBOL 216,0,0.240,0.246,60,24 >RU< 



3868 s2î=CHR$(269ji-CHfitï210) }M 
3816 SYMBOL 211,15.15,63,15,15,15,3 >CN< 



3826 SYMBOL 212,0,0,240,0,6,60,240, /BP< 

6 

3836 t2t=CHR*(2U)+CHRÎ(2i2> >BJ< 



3840 SYMBOL 213,0,0,68,60,60,66, 



3858 SYMBOL 214,0,0,60,66,60,66, 

,8 

3868 u2*=CHR$(213)+CHR$(214) 


LS, 


>TR< 


252 


>AT< 




>«K 


3B78 SYMBOL 215,0,6,66,66,68,15, 


3,6 


ÏTV< 


3888 SYMBOL 216,8,0,60,60,66,240 


,19 >LW< 



3896 v2$=CHR!i215)+CHR$<216J >U< 

3900 SYMBOL 217,6,6,240,243,243,255 ,>QN< 

,60,6 

3910 SYMBOL 218,0,0,66,60,60,252.24 >DP< 

0,0 

3920 w2$=CHR$(217)+CHR*(218) Hffl< 

3930 SYMBOL 219,0,0,248,60,15,66.24 >Dfi< 

6,0 

3940 SYMBOL 220,0,0,66,240,192,240. >ET< 

66,0 

3950 ;;2$=CHR$i219)*CHRtt220) /-VIK 

3960 SYMBOL 221,0,0,66.66.60,15.6.0 >iV< 

3 

3970 SYMBOL 222.0,6.66,60.00,60,60. >HW< 

246 

3986 y2*=CHRÏ(221)+CHR*(222) >UX< 

399H SYMBOL 223.6,6,63,48,3, 15.63, 6 mi 

4866 SYMBOL 224,6,6,252,246,192,6,2 >HE< 

52,0 

4610 :2Î=CHR*I223)+CHR$(224) >HFi 

4826 SYMBOL 225,3,15,3,3,3,3,63,0 >E6< 

4636 SYMBOL 226,192,192,192.192,192 >NH< 

,192,252,8 

4646 un*=CHR*l225i+CHRI(226) >0J< 

4850 SYMBOL 227,15,60.8.15,66,60,63 >DK< 

.0 

4866 SYMBOL 228,246,60,00,246,6,60, >ML< 

252,6 

4876 deux$=CHR*<227)+CHfi*i228) >HM-, 

4080 SYMBOL 229,15,48,6,3,6,48,15,0 >ENi 

4896 SYMBOL 236.240.00,60. 246, O0,oô >tff< 

,246,0 

4168 troisi=CHRÏ(229)+CHRÎi238) >VF< 

4116 SYMBOL 231.3,15,51,195,255,3,1 >VSi 

5,0 

4120 SYMBOL 232,192,192,192,192,240 >Mi 

,192,248,0 

4130 quat$=CHR$(231*+Mt(232) >ZJ< 

4140 SYMBOL 233,63,66,60,15,0,60,15 >AK< 

>0 

4156 SYMBOL 234,252,12,6,246,66,60, >FL< 

240,0 

4168 cinq$=CHR$!233)+CNR*(234) >PM< 

4170 SYMBOL 235,15,66,60,63,60,66,1 >PN< 

5.0 

4188 SYMBOL 236,240,68,6,240,60,66, >LP< 

240,0 

4190 sixî=CHRt(23S)+CHRÎi236) >HGK 



42*) SYMBOL 237. 63, 48,6,1, â,0, M 
4210 SYMBOL 238,252,60,60,246,252,2 

4e,2#,e 

4226 5ept*=CHR$l237)+CHRïi238) 

4230 SYMBOL 239,15,60,60,15,69,60,1 

5,0 

4240 SYMBOL 240,246,60,00,240,69,60 

,240,0 

4256 huit*=CHRt (23?> +CHR* <24«; 

42oO SïhbUL 24l, 15,60,60, lS,0,o'J,l5 

i® 

4276 SYMBOL 242,240,60,60,252,60,60 

,248,8 

42S0 neu«=CHR${241)+CHR*<242) 

4290 SYMBOL 243, o3,240,240, 243,252, 

240,63,0 

4300 SYMBOL 244,240,60, 252,66,ù0, 60 

,240,0 

4316 :eroî=CHfiî(243)+CHR*i244) 

4326 ftËTURN 

4336 REM a********************»**-* 

4340 REM test capitales 

4356 REM s************************ 

4360 IF cap=0 THEN cap=l ELSE cap-i) 



DF 



4376 IF cap=l THEN LOCATE *l,65,kf ■Ù0< 
R1NT #1, "MAJUSCULES" ELSE LOCATE #1 
,65,l:PRiNTKl. Minuscules" 
4380 FOR tamp=l TO 5O0:;NEXT >VR< 



4390 RETURN /fK 

4400 REM **«****»#****»*«»**« >GJ< 

4416 REM TEST IMPRIMANTE BRANCHEE" >fl£< 

4426 REM *********#*******#*#***** >j|_> 
4430 LOCATE 25,3:PRINT Il$;Mlï;F'lt; >YM< 
R1Î;1U;MH;AU;N1Î;T1Î;E1$; 

4446 LOCATE 25,6:FRINT N2$;Û2*;N2Î: >ZN< 
" u :Bl$iRlî;AltiNlî:Clt;Hl$;Elî;El 
J; 

4456 PRINT S8:CLS:RETURN >ïp< 

4466 REM ************************* ^qv 

4470 REM *******+*♦*#***♦♦*#****#* >pr< 

44B0 REM ANGLE D'ECRITURE >VT< 

4496 REM ************************* > RU < 

4506 CLS#2:CLS#3:CLStt5:scroIl=0 >YKv 

4510 BORDER 3,24 :>IJL< 

4526 IF GRAS=! THEN X=MEM >SH< 

4536 PRINT #2;PRINT #2, "Ecriture en >3JÎ 
montée ou descente ' ! : 

4540 FRINT #3, "horizontal =>ESPACE-i >W< 
= ,1 descente, 2 inontee" 

4556 LDCATE #2,40,1: PRINT #2, fl vat >AGK 
re choi;-; ": Aï=INfcEV*: IF Aï="" THEN 
4550 

4560 IF a$=" " THEN pente=35.8 ELSE >FR< 
IF a*="l" THEN pente=0 ELSE IF Aî= 
"2" THEN pente=71.6 ELSE GOTO 455Ô 

4576 IF pente=35.B THEN BORDER 0:GO >RT\ 



TQ 4660 ELSE IF Pente/35.3 THEN :B0 
RDER 3:G0T0 4586 ELSE BORDER 5:SQT0 

4590 
4580 ORISIN 580, 33: serai 1=2: DRAUR - >UU< 
6,6,1:DRAWR 20,2:DRA«R -3,7:DRAWR 1 
2,0:DRAWR -2,-12:DfiAWR -6,2:DRAWR - 
15,-15:DRAWR [,10:GOTO 786 
4596 ÛRIGIN 58Ô,33:scrall=l:DRAHR - ;QY< 
6,-6.i:DRAWR 20,-2:DRAWR -3,-7:DfiAW 
R 12.0:DRAUR -2,12:DRAWR -6 r 2:DRAlD 
R -15,15:DRAWR 1,-10:GÛTO 780 
4600 0RI6IN 586,33:DRAMR -4,6:DRAUfi tULi 

25,-4:DRAWR 6,6:DRAWR 16,-8:BRAttfi 
-10,-8:DRAWR 6,6:BRAWR -25,-4:DRAriR 

4,6 
4616 scroll=0 >TM{ 

4620 GOTO 786 >KN< 

4630 DI ;. B p< 

4646 PRINT CHRî<22) jCHRfil) : >FQ< 
4650 IF :>I6 THEN :1=16:60T0 4676 >m< 
4660 IF z<l THEN zi=i ELSE ïl=z &T\ 
4670 LOCATE t+l,zl:PRINT CHRÏÎ246); >RIK 

468Û FUR tl=i Tû 50:f£jT ;QVv 
4696 LOCATE t+i, zîxPEN 6:PRINT CHR* >UW< 
J246)::P£N 1 

4766 El >AM< 

4716 PRINT CHR*(22);CHRt>;6!: >CN< 
4726 RETURN >UP< 



mm 



Pascal DELALAIMDE 




pêche nullement d'être très 



apparaît, entrez 



les iE\TltT n | e a n V^f SSflm * l ^ r ' 5 St U V ? make de ''«'«tri""** PAC-MAN. On retrouve le labyrinthe bi 
les pastilles a avaler. La différence réside dans le fait que votre adversaire est seul. Ce qui 

Chargement du programme : 

Tapez et sauvez le listing, puis faites "RUN". Lorsque le "READY 

SAVE"GHOST", b, 30000, 4300 

5 '########## GHOST l«#*tttHHMt* 

10 A=30000:F=34300:L=16i):iihILE A<=F:FOR 

A=A TO A+15:READ tt;K=VflLCV*C*>iS*8W- 

65536*(Sif032767):IF A<=F THEN PQKE A,K 

20 NEXT:READ D*:T=vftL('VtD$):IF TOS TH 

EN PRINT CHR* (7); "Erreur ligne" ;L:END EL 

SE L=L+5:WEND 

160 DATA C3,21, 81, 30, 36,36,30,30, 36,FF, 3 

0,30,36,30,30,30,04A4 

105 DATA FF, 03,02,67,61, 61, 66,61, 07, FE,0 

1,03,03,02,61,01,0602 

116 DATA 66,01, 06,FF, 61, 01,01, 06, 60,02,0 

1,01,05,00,62,62,0708 

115 DATA 00,64,60,00,01,02,60,01,01,06,0 




120 DATA 92,81, 00,00,00, 



125 DATA 00,0$, M. 



150 DATA 00,00,80, 

00,00,00,0A90 

155 DATA 

0,10, 

160 DATA 00,00,00. 
50,50,50,: 

165 DATA 50,A0,A0, 



0,50, 

185 DATA 
0,50, 
190 DATA 
8,03,0C,i 
195 DATA 
F, 77, 
200 DATA 
4,66, 



50,50,50, 

50,A0,A( 
50,50,50, 

50,A0,W 
50,50,50, 
160 DATA 50,A0,A0, 
A0,A0,50,; 

50,A0,AS, 
A0,A0,50 r 

50,A0,A0, 
07,0E,2F V 

4F, 0F, 0F 
FF,FD, 



i,73. 



66,66,66, 
i 66,EE,77, 
FB.FF.EA,: 
i 00,EA,00. 
FF,FF,EE, 
i 77,66,66. 

00,00,00. 



BC,3E,02. 

CD,32,BC 
fE,02,0E, 
13,0 



.13, 
32,BC,C9, 
3E,04,32, 
3E,14,3: 
: B9,76,3E 
11.B9.75, 
; CD,A0,77, 



17C0 

.A0,A0 
1F40 
,A0,A0 
26C0 

A8,A0 
2E40 

50,50 
35C0 

50,50, 
3A2C 

0F, 0F 
3F56 

FF.FD 
4721 

FF, FF 
5427 

FB,FF 
60CE 

66,66, 
640F 

',0ô,e 
'.0ô,e 

à4yF 



obbZ 
06, t 

m 

,C9,3E. 
6D97 

CD, 32, 
7271 

Cl, 76 
773A 

0C,32 
7TJ73 

18,06 



00,00,00,00,00,0 
00,00,00,00,00,0 
00,00,00,00,00,0 

10,80,10, 80.10.B 

00,00,00,00,00,0 

10,80,10,80,10,8 

00, 00,00, 00, A0, A 

59,50,50, 50, M, A 
50,50,50, 50, A0. A 
50, 50,50,50, M, A 
50, 50, 50, 50, A0, A 
A0,A0,50,50,A0,A 
A0,A0,50,50,01,0 
0A,05,0A,05,lfi,F 
77, FF, 10, FF, 22,4 
7C,F3.FF,FF,FF,0 
FF,EE,FF,00,FF,F 
66,66,22,44,00.0 



00,00, 00, 5E,01,0 
0E,Ô1,CD,32,BC,3 
01, 06,16, 0E, 18, C 
BC,3E,03,06,0D,0 
3E,10,32,C3,76,2 
BB,76,1A,D5,FE,0 
il,F9,75,CD,A0,7 



265 DATA 32.B9,76,F£,00, 


3,13,18, D9,3E,14,89BF 


270 DATA 32,B9,7 


,3A,BB, 


C,32,BB,76,D5,11 


9043 


275 DATA 54,00,1 


,D1,13, 


9,CD,75,BB,21,B6 


9580 


280 DATA 77,CD,B 


,7C,21, 


1,8D,77,CD,BF,7C 


9E04 


285 DATA 21,33,7 


,C3,BF, 


5,3A,FF. 20,20. 20 


A46Ô 


290 DATA 76,69,6 


,73,3A, 


9, 67,68, 74, 3A, FF 


AA31 


295 DATA 3A,C3,7 


,47,E5, 


7,1A,77,23,13,10 


B109 


300 DATA FA,E1,C 


,26, BC, 


1,01,01,01,01,01 


BS01 


305 DATA 01,01,0 


,01,01, 


1,01,01,01,01,00 


B810 


310 DATA 00,00,0 


,00,00, 


0,00,00,00,00,00 


B810 


315 DATA 00,01,0 


,00,01, 


1,00,00,01,01,01 


BB1C 


320 DATA 01,01,0 


,01,00. 


0,00,00,00,00,00 


B823 


325 DATA 00,00,0 


,00,00, 


1,00,01,00,01,01 


B829 


330 DATA 01,01,0 


,00,00, 


0.01,00,01.01,00 


BB34 


335 DATA 00,00, 0( 


,00,00, 


0,00,00,01,00,01 


BB36 


340 DATA 00,01,0 


,00,01, 


0,00,00,00,00,00 


BB3A 


345 DATA 00,00,0 


,01,00 


1,01,01,01,01,00 


B843 


350 DATA 00,01,0 


,01,01, 


1,00,01.00,00,00 


B84C 


355 DATA 00,00,0 


,00,00 


0,01,00.01,01,00 


B84F 


360 DATA 01,01,0 


,01,01 


1,01,01,01,01,01 


BS5B 


365 DATA 00,01,0 


,00,00 


0,00,00,00,00,00 


B85F 


370 DATA 00,00,0 


,00,00 


1,01,01,01,01.01 


BB6A 


375 DATA 01,01,0 


,01,01 


1,01,01,01,01,01 


887A 


380 DATA 01,01,0 


,01,01 


1,01,01,01,01,00 


B889 


3B5 DATA 00,00,0 


.00,00 


0,00,00,00,00,00 


B889 


390 DATA 00,01,0 


,00,01 


0,01,01,00,00,01 


B891 


395 DATA 00,01,0 


3,01,00 


1,00,01,00,00,01 


BB99 


400 DATA 01,00,0 


',01,00 


1,00,00,00,00,00 


B89F 


405 DATA 00,00,0 


,01,01 


0,00,00,01,01,00 


B8A5 


410 DATA 01.00,0 


,00,01 



28,67,23,23,23 


2 


76, 3D,FE, 00,28 





18,C0,26,03,2E 


1 


3A,75,CD,BF,7C 


2 


7C, 53, 63, 6F, 72 


i 


33,20,20,20,68 


h 


C5,E5,3A,C1,76 


4 


C1,10,ED,E1,C9 


8 


01,01,01,01,01 


• 


00,00.00,00,00 


• 


01,01,01,01,01 





01,01,00,01,00 





00,00,01,00.01 





01,01,01,01,01 


■-'- 


00,00,00,00,00 


@ 


00,01,00,00,00 


e 


01,01,00,01,00 


a 


01,00,01,00,01 


1) 


00,00,00,00,00 





01,01,00,00,01 


• 


00,00,00,00,00 





01,01,01,01,01 





01,01,01,01,01 





01,01,01,01,01 





00,00,00,00,00 


e 


00,01,00,01,00 





01,01,00,01,00 


y 


01,00,01,00,01 





,01,00,00,00,00 





,00,00,00,00,00 






[,00,01,BBAB 

)0,01,01, 



i,BBFF 

)0,01,00 

Ï.BW5 
SI, 00, 00 
1.B90D 

30,01,01 

3.B917 

30,00,00 

Î,B917 

31,00,01 

J.B91E 



J.B92E 

>e, 01,01 



10,01,01 

;,B93D 



3,01, 01, i 

[,00,01,( 



1,M 

555 K 

0,01,t 



1,01, 01, V 

L, 81, 81,6 

1,01,01.': 

5,00, 00, ( 



S, 6969 
H, 88, 81 

3.B973 

H, 01, 00 

3,B97A 

50,00,00 

1.B980 

31,01,01 

,01.01,'30,B98D 



566 DATA 01, 00, 00,60,00, 06,60,81,01,00,9 

9, 66, 00,60, 06,61,B991 

565 DATA 00,01,61,00,60,06,60,90,00,00,0 

0,00,00,06,08,00,6993 

570 DATA 00,06,00,00,00,01,01,00,61,00,0 

1,01, 01, 61, 01, 01, B99C 

575 DATA 01,61,01,01,01,61,00,61,00,01,0 

1, 00,01,00,06,00, B9A6 

560 DATA 00,00,60,00,00,00,60,00,00,06,0 

6,61, 08, 01, 01, 60, B9A9 

585 DATA 01,01,61,01,06,01,00,01,01,00,0 

1,00,01, 01, 01, 61, B9B5 

590 DATA 00,01,01,60,00,00,00,06,00,00,0 

0,60, 06,00, 60, 06, 69B7 

595 DATA 60,00,00,06,00,01,01,01,01,01,0 

1,01, 01, 01, 01, 01, B9C2 

606 DATA 61,01,01,01,01,01,01,01,01,01,0 

1,01,01,61,01,61, B9D2 

605 DATA 01,01,61,01,01,01,01,01,01,01,0 

1,01,01,01,01,66,B9E1 

610 DATA 66,00,00,60,00,00,00,00,00,00,0 

6, 00,06, 66, 00, 60, B9E1 

615 DATA 60,01,01,06,61,01,01,01,00,00,0 

1,01,01,01,01,00,B9£C 

620 DATA 01,01,01,61,00,01.01.00.00,00,0 

6,00, 00, 60, 00, 00, B9F2 

625 DATA 00,00,00,00,00,00,00,00,90,01,0 

1,00, 61, 01, 01, 01, B9F8 

630 DATA 00,00,01,01,61,01,01,00,01,01,0 

1,61. 00,01, 61, 00, BA63 

6-35 DATA 06,00,00,06,00,00,00,00,00,00,0 

0,60,00,00,00.00, BA03 

646 DATA 60,01,01,00,01,61,01,01,00.00,0 

1,01, 61, 01,01, 00, BA0E 

645 DATA 01,01,01,01,00,01,61,00.00,06,0 

0,06,00, 00,00, 00.BA14 

656 DATA 06.00,00.00,00.00,00,00,00.01,0 

1,00,01,61,01,01, BA1A 

655 DATA 01,01,01,61,01,01,01,01,01,01,0 

1,01, 00, 01, 01, 00, BA28 

660 DATA 01,01,01,01,61,01,01,01,01,01,0 

1,91, 01, 01, 61, 01, BA36 

665 DATA 00,01,01,00,00,00,00,00,00,00,0 

0,06,00,00,00,06, BA3A 

670 DATA 00,00,00,00,00,01,01,01,01,01,0 

1,01, 01. 01, 01, 01, BA45 

675 DATA 01,01,01,01,01,01,01,01,01,01,2 

A,CD,76,E5.D1,29,BD96 

680 DATA 19,29, 19.29,29, 19, 23, 22,CD,76,7 

C,C9,3A,C3,76,47,C2E8 

685 DATA E5,C5,E5,3A,Cl,7o,4F,06,90,ED,B 

6,E1,CD,26,BC,C1,CC2B 

690 DATA 10,EF,E1,C9,2A,D3,76,23,22,D3,7 

6,21,3A,75,11,04,D2BA 

695 DATA 00,19,7E,3C,FE,3A,28,03,77,18,0 

6,3E,39,77,2B,18,D6AD 

700 DATA F1,26,09,2E,19,CD,?5,BB,21,3A,7 

5,CD,BF,7C,C9,7E,DE30 

705 DATA FE,FF,CB,CD,5A,B6,23,10,F6,CD,D 



B,B6,CD,D8,76,3A,E8B8 

710 DATA BC.76.FE, 01,26,19 

E,03,2B,2B,FE,04,EECA 

715 DATA 28,34, 11, 06,02, ED 

A,7B,C3,10,77,11,F44E 

726 DATA DA,01,ED,53,CB,76 

0,77,ll,F6,0l,ED,FC2B 

725 DATA 53,CB,76,11,9A,79 

E,91,ED,53,CB,76,039E 

730 DATA 11, 9A,7A,C3, 10,77 

3,CB,76,11,7A,7B,0A48 

735 DATA C3, 18,77, 21, EA.66 

V6,3E,02,32,C1,HD2 

740 DATA 76,3E,08,32,[:3,76, 

9,76,CD,A0,77,2A,1B7C 

745 DATA C7, 76, 11,59, 76,CD, 

2,D2,76,C3,F6,7E,216B 

750 DATA 3A,BA,76,FE,01,CA, 

B,CB,47,F5,C4,3B,2A87 

755 DATA 7E,F1,CB,4F,F5,C4 1 

7,F5,C4,34,7E,F1,34F8 

760 DATA CB,5F,F5,C4,17,7E, 

E,01,C8,FE,06,C8,3E70 

765 DATA 3A,BD,76.FE,01,20, 

B,47,F5,C4,3B,7E,4654 

770 DATA F1,CB,4F,F5,C4,42, 

5,C4,34,7E,F1,CB,5112 

775 DATA 5F,F5,C4,17,7E,F1, 

1,C8,FE,00,CB,2A,59E9 

780 DATA BF,76,2B,7C,B5,20. 

E,00,CD,1E,BB,C4,61C5 

785 DATA 3B,7E,3E,62,CD,1E, 

E,01,CD,1£,BB,C4,6891 

796 DATA 17,7E,3E,08,CD,1E, 

A,D2,76,FE,00,C8,6FD6 

795 DATA FE,0UCB,3A,BD,76, 

D,3E,00,CD,1E,B6,77DC 

B00 DATA C4,3B,7E,3E,02,CD, 

E,3E,01,CD,1E,BB,7EA8 

B05 DATA C4,17,7E,3E,08.CD, 

E,3A,D2,76,FE,00,85E3 

810 DATA CB,FE,01,C8,C3,AF, 

E, 93,32, C9, 76, 2A.8C68 

815 DATA C5,76,19,7E,FE,10, 

0,C8,FE,2F,CA,C3,95A9 

820 DATA 7E,C3,5D,7E,3£,01, 

U1,B0,I7,3£,02,9B3B 

825 DATA 18,DA, 11,50, 18, 3E 

4,7C,2A,CB,76,2B,A146 

830 DATA 7C,B5,20,06,3E,00, 

2,CB,76,11,A9,76,A7B1 

835 DATA 2A,C5,76,CD,A0,77 

1,28,17,FE,02,28,AED9 

840 DATA 22,FE.03,28,2D,11 

6,3A,D0,76,3C,32,B3B0 

845 DATA D0,76,18,2B,11,FE 

A.CF,76,3D.32,CF,BAE4 

B50 DATA 76,1B,1C,11,B0,FF 

0,76,3D,32,D0,76,i;i73 



FE,02,2B,22,F 
53, CB, 76, 11, A 
U,BA,77,C3,1 
C3,10,77,U,D 
11,B2,01,ED,5 
,22.CD,76,CD,F 
2A,C5,76,U,8 
A0,77,3E,FF,3 
BA,7D,CD,24,B 
42,7E,F1,CB,5 
F1,3A,D2,76,F 
2B,CD,24,BB,C 
7E,F1,CB,57,F 
3A,D2,76,FE,6 
FB,C3,48,7D,3 
BB,C4,42,7E,3 
BB,C4,34,7E,3 
FE,00,CA,AF,7 
1E,BB,C4,42,7 
1E,BB,C4,34,7 
7D.11, 02,18,3 
CA,49,7E.FE,5 
11,FE,17,18,E 
04,18, D3, CD, 9 
32,D2,76,C9,2 
3A,C9,7È,FE,0 
56,00,61,99,7 
FF, 01, 69, 76,3 
01,79,76,3A,D 



855 DATA 18,60, 11, 62, 90,61, 89,76, 3A,CF,7 

6,3C,32,CF,76,2A,C667 

B60 DATA C5,76,19,22,C5,76,C5,D1,CD.A0,7 

7,C9,21,55,75,CD,ŒB3 

865 DATA AA,BC,C9,3E,01,32,Q2,76,CD,B3,B 

5,C9,3E,32,32,BE,D699 

870 DATA 76,21,67,75,11,03,00,19,77,21,7 

9,75,19,06,96, 77, DBA2 

B75 DATA 21, 67,75, CD,AA,BC, 21, 70,75, CD,A 

A,BC,3A,B£,76,C6,E43F 

886 DATA 05,FE,64,CB,18,DB,2A,C7,76,3A, 

9,76,47,3A,D7,76,EC13 

885 DATA 90,20,14,37,3F,3A,CF,76,47,3A,D 

1,76, 96, 33,04, 3E,F19E 

896 DATA 61, 18,27, 3E,03, 18,23, 3A,CF, 76,4 

7,3A,D1,76,96,C2,F6F3 

B95 DATA E5,7F,3A,D7, 76,47, 3A,D6, 76,96,3 

8,64,3E,04,18,0A,FCD5 

906 DATA 3E,02,18,06,CD,6A,7C,E6,03,3C,3 

2,C9,76,2A,C7,76,02E3 

905 DATA U,79,75,CD,A0,77,3A,C9,76,FE,0 

1,28,23,FE,02,28,09B1 

910 DATA 31, FE,03, 28,3F, 11,50,00,06,60.0 

E, 03,18, 3D,U, 52, 0C7B 

915 DATA 00,06, 61, 0E,01,1B,34,U.4E,00.0 

6,FF,6E,01.18,2B,0E90 

920 DATA 11,FE,FF,06,FF.0E,00,18,22,11.A 

E,FF,06,FF,0E,FF,15BB 

925 DATA 18,19,11, B6, FF, 66, 00.0E, FF, 18, 1 

0,11,B2,FF,06,01,1AB0 

930 DATA 6E, FF, 1B, 07, 11, 02,60, 06,01. 0E,6 

0,2A,C7, 76,19, 7E,1EÔ2 

935 DATA FE,A0,28,90,FE,50,28,BC,FE,22,2 

8, 0A.FE, 10,28,06, 24E8 

940 DATA FE,FF,2S,02,18,06,3E,01,32,D2,7 

6,C9,3A,D1,76,B0,26B0 

945 DATA 32, Dl, 76, 3A,D7, 76, Bl, 32,07,76,2 

2, C7, 76,11, 79,75, 330E 

956 DATA CD,7C,7C,2A,C7,76,11,59,76,CD,A 

0, 77,21, 5E, 75, CD,3ABF 

955 DATA AA,BC,C3,50,7D,2A,C7,76,11,79,7 

5,CD,AÔ,77,3A,CF,430B 

960 DATA 76,47,3fi,Dl,76,90,38,6E,3A,D0,7 

6,47,3A,D7,76,90,49FA 

965 DATA DA,37,80,C3,7D,B0,3A,D0,76,47,3 

A,D7,76,90,DA,14,5217 

970 DATA B0,C3,5A,80,11,02,00,01,50,00,C 

D,A0, 66, FE, 00,28, 57AB 

975 DATA 0B,3A,C4,76,FE,00,C2,34,7F,C3,5 

5,7F,3A,C4,76,FE,5FA6 

980 DATA 00,C2,94,7F,C3,5E,7F,11,F£,FF,6 

1,50,00,CD,A0,B0,6767 

985 DATA FE,06.28,0B,3A,C4,76,FE.00,C2,3 

4,7F,C3,55,7F.3A,6E50 

990 DATA C4,76,FE,00,C2,70,7F,C3,67,7F,1 

1,62, 00,61,60, FF, 75A5 

995 DATA CD,A0,80,FE,00,28,0B,3A.C4,76,F 

E,00,C2,34,7F,C3,7D6D 

1000 DATA 82,7F,3A,C4,76,FE,00,C2,94,7F 

31 



C3,86,7F,ll,FE,FF,a690 
1005 DATA 91,B9,FF,CD,A9,E 
3A,C4,76,FE,00,C2,BE92 
1*1* DATA 34,7F,C3,S2,7F,^ 
C2,70,7F,C3,79,7F,96E7 
1915 DATA 2A,C7, 76,99, 7E,; 
76,19, 7E, 32, CA,76,9DB1 
\m DATA C9,3E,C9,CD,0E 
BC,21,09,00,22,D3,A3F5 
1925 DATA 76,22,D5,76,3E,>; 
BC,BC,3E,02,21,4B,A9DF 
1039 DATA 75,CD,BC,BC,3E,t 
21,00,C0,11,A4,99,B 
1635 DATA 19,22,C5,76,3E,i; 
D9,76,32,D7,76,3E,B6F9 
1&49 DATA 23,32, D1.76, 11,' 
76,96,49,21, 79, 75,B 
1045 DATA 36,00,23, 10,FB,C 
?6,3£,93,32,6C,76,C136 
1050 DATA 21,90,00, 22. D3, 
75,36,39,23, 10,FB,C532 
1955 DATA C9,CD,Bl,80,CD,t 
CD,F4,76,3E,91,CD,CE9F 
1969 DATA 99,BB,3E,99,CD,S 
CD,83,B5,CD,83,B5,D7C5 
1065 DATA CD,F1,B1,CD,D8,7 
F4,76,CD,DA,89,3E,E2CD 
1679 DATA 95,CD,1E,BB,CÔ,C 
76,11, A9,76,CD,A0,EAA7 
1075 DATA 77,2A,C7,76,ll,i 
3A,D2,76,FE,99,28,F21È 
1989 DATA 5F,CD,CC,7E,3A,C 
76,FE,Û9,28,1A,26,F905 
1985 DATA 17,2E,19,CD,75,B 
30,CD,5A,BB,2A,C5,0099 
1099 DATA 7û,ll,A9,76,CD,f 
A9,76,2A,C5,76,CD,0850 
1995 DATA A9, 77, CD, 83,85 
7E,CD,B3,85,2A,D3,11FA 
1199 DATA 76,37,3F,ED,5B 
24,81, 2A,D3,76,22,19CC 
1105 DATA D5,76,21,3A,75,1 
00,ED,B0,C3,24,B1,1FAC 
U19 DATA 3E,93,32,C2,76,3 
96,28, 99,32, BC,76,259B 
1115 DATA CD,C9,7C,C3,4C,E 
76,CD,C9,7C,C3,4C,2DFE 

1129 DATA 81, 3E,01, 06,18 
CD,DB,BB,26,01,2£,3375 
1125 DATA 01,CD,75,B6,21,E 
CD,5A,BB,23,10,F9,3AB9 

1130 DATA 26,01,2E,02,CD,7: 
CD,BF,7C,26,01,2E,499E 
1135 DATA 95,CD,75,BB,21 
26,91, 2E, 07, CD, 75, 4673 
1140 DATA BB,21,32,B3,CD,B 
09,CD,75,BB,21,4A,4CD2 
1145 DATA 83,CD,BF,7C,3E,2 
0E,3E,40,CD,1E,BB,53B3 
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1150 DATA 28,F2,3E,01,32,BB,7È.18,05,3E, 


CE, 3E, 03, 06, 02. 18,0386 




,80,FE,00,28,0B, 


K>, 32,60,76, 26,81, 585B 


1399 DATA C8,3E.02,96,03,18,C2,3E,02,06 




1155 DATA 2E,0D,CD,75,BB,2i,6A,83.CD.BF, 


02,18,BC,3E,03,06,96D4 




,3A,C4,76,FE,00, 


7C,26,01,2E,0F,CD,5ED7 


1395 DATA 03,1B,B6,32,36,36,36,36 


36,34 




1169 DATA 75.BB, 21, 7C,S3,CD,BF,7C, 26.91, 


38, 32,34, 38, 38, 38, 0A5F 




,32,C4,76,2A,C7, 


2E,ll,CD,75,BB,2i,65B3 


1310 DATA 32,34,38,32,36,36,36,36 


36,34 




1165 DATA 90,B3,CD,BF,7C,26,01,2E,13,CD, 


3B,32,36,36,36,36,0DB3 




,BC,3E,91,CD,9E, 


75,BB,21,9B,83,CD,6D3F 


1315 DA T A 36,34,38,32,36,36,36,36 


36,34 




1170 DATA BF,7C,3E,40,CD,1E,BB,20,1B,3E, 


39,31,31,31,31,31, 10F7 




,91, 21, 41, 75. CD, 


41, CD,1E,BB, 20,19, 7334 


1329 DATA 31,33.38,31,37,36,38,36 


31,37 




1175 DATA 3E,20,CD.1E,BB,20,02,1B,E9,21, 


38,31, 31, 31, 31, 31, 143B 




,91.32, BA,7i,C9. 


A9,0F,22,BF,76,18,7B9A 


1325 DATA 31.37,36,31,31,31,31,31 


31,33 




1180 DATA 0E.21, 70,17, 22,8F, 76,16, 96, 21, 


38,31, 31, 31, 31, 31, 175E 




, 00,32, CF, 76,32, 


+0,1F, 22, BF, 76,26, 7CC2 


1339 DATA 31,33.39,31,37.38,38,38 


36, 3B 




1185 DATA 01,2E,17,CD,75,BB,21,AD,83,CÛ, 


38,31,37,38,38,38. 1AC3 




,46, 90,19, 22, C7, 


BF,7C,3E,22,CD,1E,83A9 


1335 DATA 31,37,36.31,37,38.38,38 


31,37 




1199 DATA 6B,20,0D,3E,2E,CD,1E, 68,28, F2. 


38,31,37,38,38,38, 1E23 




,C9,3E, 93.32, C2. 


3E,01,32,BA,76.C9,BA27 


1349 DATA 38,38,38,38,38,31,37,36 


38,38 




1195 DATA 3E,09,32,BA, 76.C9. 47,48, 4F,53, 


39,31,37,32,36,36.216A 




,76, 96,06,21, 3A. 


54,2C,72,65,61,6C,8FE5 


1345 DATA 36,34,38.31,35,36,36,36 


31,37 




1200 DATA 69,73,65,29,70,61,72,29,50.61, 


38,31,37,38.38,38,24E4 




, 06,81, CD.BF.33, 


73,63, 61, 6C, 29, 44, 9561 


1350 DATA 31,37,38,31,35,36,36,36 


36,34 




1205 DATA 45,4C,41,4C,41,4E,44,45.FF.46, 


38, 38, 38,31, 37, 38, 283E 




,?6,BB,CD,&3,85, 


45,56,52,49, 45,52, 9AA9 


1355 DATA 38,38,39,31,37,31,31,31 


31,37 




1219 DATA 20,31, 39, 38,36, 2E,2E,2E,FF,2A, 


38,31, 31, 31, 31, 31, 2B77 




,76,CD,C9,7C,CD, 


4E,69,7È, 65,61, 75, 9FBC 


1360 DATA 31,37,36,31,37,38,38^8 


31,37 




1215 DATA 20, 64, 65, 20, 64, 69,66, 6ù, 69, 63, 


3B,31,31,31,31,31,2EBC 




,CD,23,7D,2A,C5, 


75,6C,74,65,65,20,A569 


1365 DATA 31,37,38,38,38,31,37,38 


38,38 




1220 DATA 3F, FF,2D,39,2D,29, 44,55, 52.2C, 


39,31,37,31,33,38,3219 




,79,75,CD,A0,77, 


6A,65,20, 73,75, 69,AAA6 


1379 DATA 31,37,38,31,37,38,38,38 


31,37 




1225 DATA 73,20, 75, 6E,29, 62.6F, 6E.2E.FF, 


38,31,37,38,38,38,3579 




,C2, 76,30, 32, C2, 


2D,31,2D, 20,46, 41, AFDC 


1375 DATA 31,37,36,38,38,38,38,38 


31,37 




1239 DATA 43,49, 4C, 45, 2C,6A,65, 20,73, 75, 


38,38, 38,31, 37, 38, 38E1 




,BB,3A,C2,76,C6, 


69,73,20,75,6E,20,64FB 


1380 DATA 38,38,39,31,35,36,36,36 


31.37 




1235 DATA 66,61,69,62,6C,65,2E,2E,2E,FF, 


38,31,37,38,38, 38, 3C42 




,A0,77, 18,53,11, 


2A, 56, 69,74, 65,73, BB1C 


13B5 DATA 31,37,38,31,35,36,36,36 


31,37 




1240 DATA 73, 65, 20,64, 75,20, 6A, 65, 75, 29, 


38, 32, 36,36, 36, 36, 3F94 




,CD,83,85,CD,CC, 


3F,FF,2D,30,2D,20,C059 


1390 DATA 31,37,38,38,38,31,37,38 


3S, 38 




1245 DATA 54,72,65,73,20, 72.61,70,69, 64, 


39,31, 31, 31, 31, 31, 42E2 




,D5,76,ED,52,DA, 


65,2E,2E,2E,2E,FF,C643 


1395 DATA 31,33,38,31,33,38,38,38 


31,33 




1250 DATA 2D,31,2D,29, 42,6F, 66,2£,2E,2£, 


38,31,31,31,31,31,4616 




,11,33,75,01,06, 


FF,2D,32,2D,20,41,CA7B 


1409 DATA 31,33,38,31,31.31,31,31 


31,33 




1255 DATA 73,73,65,7A,20,6C,65,6E,74,2E, 


38,38,38,31,33,38,4954 




,3A,BC,76,3C,FE, 


2E,2E,FF,2A,4A,6F,D07F 


1495 DATA 38,38,39,21,FF,FF,2B,7C 


85,20 




1260 DATA 79, 73,74, 69,63, 66,20, 3F, 20,28, 


FB,C9,00,00,0â,00,4F53 




,81,3E,01,32,BC, 


4F,2F,4E,29,FF,26,D5D7 


1410 DATA 00,00,09,00,00,90,00,00 


00,00 




1265 DATA 92,2E,0A,CD,75,B6,CD,D8,BB,CD, 


90, 00,09, 00,00,99, 4F53 




,0E,18,CD,32,BC, 


D8,76,2i,43,84,7E,DDF2 


1415 DATA 90,00,09,90,00,00,00,00 


00,00 




1279 DATA D6,30,FE,00,C8,FE,09. 28,33, FE, 


00,00,00,00,00,00,4F53 




,E6,82, 06,22, 7E, 


01,28,3D,FE,02,28,E4AC 


1420 DATA 00,09,00,09,00,00,09,00 


00,09 




1275 DATA 3E,FE, 03,26,49, FE,94,28,42,FE, 


90,00, 00,00,99,00, 4F53 




, 75, BB,'21, 99,83, 


95,2B,44,FE,06,28,EA5A 


1425 DATA 09,00,00,00,00,00,90,99 


00,00 




1280 DATA 46,FE,07, 28, 48,3£, 90,06, 00,E5, 


00,90, 00, 09, 00,99, 4F53 




,19,83,CD,BF,7C, 


C5,CD,90,BB,C1,7B,F154 


1430 DATA 09,00,09,00,00,90,00,00 


99,90 




1285 DATA CD,96,BB,3E,D6,CD,5A,BB,E1,23, 


00,90, 00,99, 00,00, 4F53 




,BF,7C,26,01,2E, 


18,C3,E5,CD,7B,BB,FB2C 


1435 DATA 99,00,00,09,00,00,90,90 


00,00 




1290 DATA 2C,26,92,CD,75,BB,El,23,ia,B5, 


90,99, 00, 09, 00, 00, 4F53 




20,CD,1E,BB,20, 


3E,01,47,1B,DA,3E,0104 


1440 DATA 00,00,00,00,99,00,00,00 


00,99 




1295 DATA 02,96,00,1B,D4,3E,00,06,03, 1B, 


00, 00, 09, 00, 09,00, 4F53 





MEMOIRE 



Henri CHAUVET 

Il est prouvé que les capacités mentales s'amenuisent avec l'âge. En revanche, la 

mémoire ne nécessiterait qu'un bon entraînement pour être à peu près performante 

Ce logiciel se propose d'exercer vos talents sous forme de jeu. 

Le mode d'emploi est inclus dans le programme. 

Les 464 doivent supprimertoutBS les instructions GRAPHICS PEN et FRAME 



B— ? — ! — ! 



10 CLS ; 

iOSUB 1340: redéfinition des : 
caractères 
30 GGSUB 1430; présentation 

i RANDOMZE TIME ; 

50 ftEM 

66 REM — dessin du cadre — ; 

7» REM ; 

d CLS ; 

?e mua i 

100 DM a{81!,nMibreC31!,n(Bi) 

110 PAPER 2 

126 PEN 2:F0R li=3 T0 23.-LQCATE 19, : 

li:PRINT" ":NEX 

T: PAPER 3 

13^ FOR h=0 Tu 4 ) 

1<W LOCATE 19,h+3+4*h:F'RINT" ; 

150 NEXT ) 

160 FOR n=â TO 20 > 

170 FOR v=0 TO 4 > 
1B6 LOCATE v+19+4*v,3+niPRINT" " > 

190 NEXT J 



200 NEXT 
210 REM— 



iture des 16 lettres a 

" piâce respective — 



} REM- 



240 FAPEfi Û:FEN 2 

250 y=-l 

260 FOR 1=0 TO 15 

270 x=23+Si MQD 4)*5 

286 IF i I10D 4-0 THEN y=y+5 

290 LOCATE x,y:PRINT CHRtt65+iJ 

380 NEXT 

-310 REH 

320 REM — reqles du jeu — 
330 REM 



340 LOCATE 1,5: PEN l:PRINT"Dans cha ; 

que case" 

350 PRINT H se cache un noaiQre":FRINT ! 

"de 1 "+CHRÎI201I+" 16." 

360 PRINT:PRINT:PRINT"Pour le faire 3 

":PRINT <l appara"+CHRÏ(202)+ , 'tre,":PR 

INT "appuie sur":PRINT"la lettre":? 

RINT" correspondante. " 



i/B PRINT:FRINT:FRINT"Eviaem(nent.": ; 
FfilNT'les nosbres":PfiINT"doivent ap 
para"tCHfit(202)+"tre":PRMT"dans I : 
ordre, " 

380 CALL &BBÛÔ ) 

390 FOR ef=5 TO 20:LOCATE l,ef:PRIN ; 



M ;NEXT 



400 FEN 2:L0CATE l,4:PRINT"0n peut >JE< 

jouer "+CHR*i201):PRINT"un du deux 

joueurs" 

410 PRlNT:PRINT:PRINT"Cambien "+CHR ; 

ï(204)+"tes-vous":PRINT" il ou 2) 

420 FEN 1 

430 k$=INK£ïï:IF k$="" THEN 430 

440 IF kt="l" THEN 450 ELSE 470 

456 LOCATE 8, 10:FRINT lc$:n]=l:f laq= ; 

i:PRINT:FRINT:PRINT"3uel est ton no 

n ?":PRINT 

460 xx=PQS(#yj:yv=vPQS(#0J:GOSlJE 16 > 

90:nt(li=nnî:GOTO S30 

470 IF kî="2" THEN 480 ELSE 430 

480 LOCATE S, 1Ô:PRINT k$:n j=2:FRINT } 

:PRINT:PfiINT:PfiINT:PRINT"to du jou 

eur N"+CHR$(205)*-" 1" 

49y KK=POS(#0):yy=VPOS[|0!:6QSuB 16 ) 

90:n*(l)=nn$ 

500 PRINT:PRINT"Nom du joueur W*Oi > 

R*(2051+" 2" 

510 KK=F'OSi»0):yy=VPOS(#y):GOSUB 16 > 

9y:nti2i=nn$:GOTO 530 

520 GOTO 430 > 

530 n.jïnj-l:F0R w=l TO 1960:NEXT w: > 

FOR ef=4 TO 24:L0CATE l.ef:PRINT SP 

ACEÎilBkNEXT 

54« IF kî="l" THEN LOCATE 1,B:PRINT > 

"A toi de jouer, ";PRINT UPPERÎ(nt): 

GOTO 570 

550 no=no+l: LOCATE 1,8:PRINT"A toi > 

de jouer, ":PPJNT UPPERÎ(nï(no)) 

560 REH 



570 REM — attribution d'un nombre 
par case — 



580 REM- 



590 LOCATE 1,1 

600 FOR a=0 TO 15 

610 noaibreia)=a 

620 NEXT 

638 v=16 

640 FOR a=0 TO 15 

650 k=INT(RND(1>*v)+1 

660 d=nafflbre(x)+l 

670 n(a)=d 

660 nombre(K)=nombre(v):> 

690 NEXT 

706 REM 



710 REM — programme principal— 
720 REM 



730 no«bjuste=l 



>J1M< 
>CN< 

ïFP< 

>E0: 

m-- 



>CQ< 
>VR< 
>KH< 

>FJ< 
■M . 

>tl; 



740 LOCATE l,15:FRINT"nombre de cou ;> 
ps":LOCATE 7,16:PAFER 2:PRINT coupi 
no) 

758 WKILE nonbju5te<17 > 

760 FAPER 2; PEN 1 > 

770 couplnol=CQupino!+l > 

7B0 k*=INKEV*:IF kl*" 11 THEN 786 > 

796 IF ASCiUfPERîlk$)K65 OR fiSCiUP ) 
PERÎ(k$))>80 THEN 788: cas du la 1 
ettre n'est pas dans ie cadre ientr 
e A et Pi 

%m l=ft3CiUFPERïJki!ï-65 > 

810 IF nllKnombjuste THEN 780: ca > 
s au le nombre est déjà attiche 
826 K=20+U MÛD 4)*5:y=6+i+l\4-(l M ■ 
OD 4! 

839 LOCATE 7.16:PRINT couplnol > 

846 LOCATE x,y:PRINT ntt'l 
850 IF n(l)=nomhjuste THEN nombjust > 
e=noirijjustE+l: SOUND t,SÛ,8,a:3QUND 
1. 30. 8. B: SOUND 1.50.B.8:6QTG 679: 
réponse juste 

B60 FOR M*l TO 500:NEXT:PEN 2:L0CfiT > 
E ;;,y:PRINT nombreil;:' etfacaqe de 
la réponse fausse 
870 WEND * > 

B80 PAPER 0:1F nj>0 THEN <m ELSE 9 > 

se 

B90 REM — on continue s'il y reste > 
encore un joueur — 
960 FUR ef=5 TO 23: LOCATE l,e-f:PRIN > 
T SFACE*[18>:NEXT:PAFER 2: ettacaq 
e du tente de gauche 
910 FOR e*=6 Tû 15 

920 x=21+te-f HQD 4)*5:y=6+et+ef\4-l > 
et" MQD 41 

930 LOCATE ;<,y:PRINT" ":N£XT:' e-f-f } 
acage des 16 nombres trouves par le 
premier joueur 

940 PAPER ) 

950 SQTO 530 > 

968 REM > 



ultats- 



970 REII- 

9B0 REM 

990 FOR w=l TQ 20$0:NEXT w > 

1006 PAPER 1:PEN 0:CLS > 

1010 IF flaq=l THEN 1030 ELSE 1120 > 
1020 ' résultat si un seul joueur ; 
1030 LOCATE 1,12:PRINT UPPER*(n*U) > 
);", tu as mis";caup(no):"coups." 
1640 IF CQup(no)<21 THEN PRIfiTîPBÎN > 
T:PRINT". . . et je peux dire que tu 
m"'+CHR$[20Ô)+"pates M!" 
1650 IF coup(nD)>20 AND coupino)<26 ; 

THEN PRINT:PRINT:PRINT"... bravo, 
c'est tr"+CHR$î2«3)t"s bien 1:1" 
1060 IF coup(no)>25 AND coup(no)<35 ) 

THEN PRINT:PRINT:PRINT" ... P 

as mal du tout ! ! !" 



1979 IF coup(na)>34 AND coupino)<45 /HJ< 
THEN PRINT:FRINT:PRINT" ...tu pe 
UX sans doute taire mieux ..." 
10B0 IF coupinoi>44 AW coup(noK55 >MK< 
THEN PRINT:PRINT:PRINT" ...j'ai 
vu d";CHR$(200); M j";CHRÎ(201!;" vu 
beaucoup mieux..." 

1090 IF coup(no)>54 THEN PRINTiPRIN >AL< 
T:PRINT".. .c'est vraiment beaucoup 
trop ! ! i " 

1100 60TD 1230 >RC< 

1110 REH résultats si deux joueurs ~Ms 
1120 LOCATE B,6:PRINT U ET VOICI LE P >QE< 
ALMARES": LOCATE B,7:PRINT"========= 



1130 LOCATE 3,1Ô:FRINT UPPER**n*(li >SF< 
):L0CATE 25.10:FR1NT coup H î : ,: coups 

1140 LOCATE 3,12:PRINT UPPER$(nîi2) >ÏS< 
! : LOCATE 25, 12:PRÏNT coup (2) ; "coups 

1150 IF coup(ii>coup(2) THEN »nï=UP ?1H< 

FEfiî<nï(l)):SQTQ 1190 

1160 IF coup(2)>coup(l) THEN mn*=UP >BJv 

PER*(nî(2)):G0TO 1190 

1170 LOCATE (36-LEN(n*(l))-LEMn*l2 >OK< 

)))\2,18:FRINT UFPER*ln$il)>:" et " 

;UFFERÎint(2]) 

1180 FRINT:PRINT" VAINQUEUR >%L\ 

S A EGALITE ! N :G0TD 1230 

1190 LOCATE 12,1B:PRINT"LE VAINOUEU >CI1< 

R EST":L0CATE (40-LEN(mnî))\2,20:PR 

INT ain* 

1206 REII >PB< 

1210 REM — tin de partie — >LE< 

1226 REM >RF< 

1236 CALL &BB06:CL5 >DG< 

1240 PAPER ôiPEN 2:CLS >AH< 

1256 LOCATE L^FRINFUne autre pa >DK 

rtie (0/N) ? *; 

1260 k*=INKEÏt:IF kt= M,i THEN 1260 >m 

1270 PEN 1 >VL< 

12B0 IF UPPERt(k*)= ll u THEN PRINT"0 >TM< 

UI":FQfi w=l TQ 300:NEXT:CLEAR:6OTQ 

Bft 

1290 IF UPPERS(kl)="N" THEN PRINT"N >Dhl< 

QN":FQR w=l TO 300:N£XT:CLS:PEN 1:C 

ALL S:BC02:END 

1366 GOTO 1260 >XE< 

1310 REM >JF< 

1320 REM — rede-finition des lettres >PS< 
accentuées — 

1330 RE» >LH=: 

1340 SYMBOL AFTER 200 >PJ< 

1350 SYMBOL 200,12.24,60,102,126,96 m<. 

,60 

136Ô SYMBOL 201,48.24,120.12,124,20 >QL< 

4,118 

1370 SYMBOL 202,24.36,56,24,24,24,6 >HM< 



1386 SYMBOL 203.48.24.60.102.126.96 >BK< 

,60 

1390 SYMBCt 204.24.36,60,102.126.96 I#< 

,60 

1400 3YMBDL 205.48, 126.72, 12MB MER 

1410 RETURN >MG< 

1420 REM >VH< 

1430 REM — Présentation — >NJ< 

1446 REM 'ffî.< 

1450 MODE y )ÙL< 

1466 M 2. 11.24: INK 3,6. 19:1WK 4.1 >DM< 

6.17 

1470 FOR t=6 ÎO 360 STEP 5:0RIGIN 3 ,FN< 

20,300:GRAPHIC5 PEN t MOD 3+2:DRAW 

COSit)*25y,SIN(t!*B0:NEXT 

1480 ORIGIN 0.0:GRAPHICS PEN 1 >DP< 

1490 tït*= E ' E R I M E M" >m% 

1506 TAS >EG< 

1516 FOR j-0 TO 14 5ÎEP 2 /BH< 

1520 FOR i=l TQ 390-lB*j STEF' 5 ;EJ< 

1530 FRAME >NK< 

1540 M0'7E 1,166:PRINT flIDiititi. j+1 >KL< 

1550 NEXT i.j >AM': 

1560 TAGOFF ;ZN< 

1570 FOR mu=l TQ i8 >LP< 

1586 READ note. durée >YQ< 

1590 SOUND l,note,dureË:SÛUKD 2,nû+ /ZR< 
5,duree:S0UND 4,note+l.duree 

1600 NEXT ^NH, 

1610 DATA 80.24.0.4.80.12.0.4.66.12 AJ\ 
.0,4.80.24,0,4,80.24 

1626 DATA 71.48.86.48 >3K 

1630 DATA 0,4.30.24.60.24.B0.24.B9. >TL< 
24, 95, 24, 86, 3û 

1640 FOR w=i TQ 2000:NEXT w >Wl< 

1650 MODE 1 >W< 

1660 INK 2,26:IN^ 3,6:B0RDER 11 >CP< 

1676 RETURN Mi 

16B6 ' rentrée des noms par INKIïl ,JR\ 

1696 curtr*=CHR$(22)+CHR$Ui+CHR*0 >HT< 
5)+CHRÏ(22)+CHRÎ(0i 

1700 nnt="":xt="":CLEAR II4PUT >D.K 

1710 LOCATE xx,yy:PRINT curtrî >YK< 

1720 WHILE k*OCHR*U5i >JL< 

1730 kt=INKEYÎ:IF k$="" THEN 1730 >UM< 

1740 IF LEN(nnî)>16 THEN 17B0 >BN< 

1756 IF k$=CHR$(127) AND nnîO"" TH >&>i 
EN LOCATE x;;+LEN<nn$i.yy:PRINT CHRI 
t8)+" ":nnï=LEFT$(nn*,LENinnti-ll 

1760 kt.I=UPPERÎikï):ask=ASClkk*i:IF >XQ< 
(ask>64 AND ask<91) OR ask=32 OR a 
sk=45 THEN nnt=nn$+kî 

1770 LOCATE ^,yy:PRINT nnï+curtr$ >KR< 

1780 WEND >ET< 

1796 LOCATE H+LEN(nn$),yy:PRINT" " >TU< 

1666 RETURN >QK< 
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OUVERT DU MARDI AU VENDREDI du 10 h 30 à 13 h el rJelij h o ly h. LE SAMEDI de 10 h 30à 19 h 
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COMMENT COMMANDER Cetliei ibisi , ri . : . ■■ :,: 

EPOSSEDE: UCPC6128 G 


Jlrels) ou taKs en une liste sur une 1 mille a part ■ Faites le Mal +- Irais rit non iïu I M uijr anhnB inférieurs a 5(1(1 F 10 F 
CPC464 DCPC664 nPCW8256 ITPCW8512 □ SPECTRUM48K 


e 511(1 j 10QD F. en F pour aclial ^peneu, ;, iilttl F 

DSPECTRUM128K 






;■' 


BESSE 






__ 


. 


nriat i Jconlro-rwnrjoursement (prévoir 20 F de frais] envoyer le toit a ORDIVIDUËL. 20 metfe Monlreuil 34300 VINCENWES. r- 





■\î»*»- 



tcA^m 



THE LAST MISSION 




DISTRIBUES PAR 
LORICIELS 



TÉL. :(1)47521818-TELEX631 748F 



